Công dụng: Sử dụng các chức năng này để xác định xem một tập tin hoặc thư mục có thể truy cập không, đặt biệt thích hợp cho các ứng dụng kết nối qua LAN, xem máy chủ đang tắt hay mở, nếu không có code này, máy con khi mở ứng dụng nó chạy lòng vòng khoảng 1 phút sau hiện 1 thông báo toàn Tiếng anh, rất phiền phức.
Khả năng áp dụng:
- Ứng dụng có sử dụng Link table qua LAN
- Ứng dụng kiểu Máy chủ-Máy con
- Ứng dụng liên quan đến quản lý file và thư mục.
Code sử dụng:
Mã PHP:
Function KiemtraFile(ByVal DuongdanFile As String, Optional Xacdinh As Boolean) As Boolean ' Xacdinh la True/False
Dim Thuoctinh As Long
Thuoctinh = (vbReadOnly Or vbHidden Or vbSystem)
If Xacdinh Then
Thuoctinh = (Thuoctinh Or vbDirectory)
Else
Do While Right$(DuongdanFile, 1) = "\"
DuongdanFile = Left$(DuongdanFile, Len(DuongdanFile) - 1)
Loop
End If
On Error Resume Next
KiemtraFile = (Len(Dir(DuongdanFile, Thuoctinh)) > 0)
End Function
Mã PHP:
Function KiemtraFolder(DuongdanFolder As String) As Boolean
On Error Resume Next
KiemtraFolder = ((GetAttr(DuongdanFolder) And vbDirectory) = vbDirectory)
End Function
Cú pháp gọi:
KiemtraFile(DuongdanFile)
KiemtraFolder(DuongdanFolder As String)
Đối số:
True/False: ra True là tồn tại ra False là không tồn tại
Ví dụ 1:
Mã PHP:
If KiemtraFile(Me.txtLinkfile) = True Then
MsgBox "File dang ton tai"
Else
MsgBox "Sory, File khong co tren may"
End If
Trong đó: Me.txtLinkfile = "D:\Vidu.mdb"
Ví du 2:
Private Sub cmdTestFolder_Click()
If KiemtraFolder(Me.txtLinkfolder) = True Then
MsgBox "Thu muc dang ton tai"
Else
MsgBox "Sory, Thu muc nay khong co tren may"
End If
End Sub
Trong đó: Me.txtLinkfolder = "\\192.168.1.10\VBDT$"
Đính kèm Demo
Ghi chú: Đây là đoạn code đơn giản nhất sử dụng hàm Dir, ngày tiếp theo mình sẽ post thêm 1 demo code khác để kiểm tra chỉ dựa trên IP của bất kỳ máy nào trong mạng LAN xem máy đó đang tắt hay mở.
Chúc các bạn vui vẻ...