Tùy chọn
[Demo]_Code Kiểm tra Máy chủ tắt hay mở...
- [Demo]_Code Kiểm tra Máy chủ tắt hay mở...
-
[Demo]_Code Kiểm tra Máy chủ tắt hay mở...
maidinhdan > 09-09-15, 11:27 PM
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.
![[Hình: Hinh-Ketnoifile.jpg]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/Hinh-Ketnoifile.jpg)
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ẻ... -
RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...
maidinhdan > 10-09-15, 05:01 PM
Có lẽ lần sau làm Demo sẽ khóa Pass file RAR quá, chẳng thấy ai có ý kiến là nó giở/ hay thế nào? Chẳng biết đường mà mò
Huhu
-
RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...
tronghieu9792 > 11-09-15, 12:56 AM
Những bài viết của bác maidinhdan đều rất hay, bài này cũng vậy. Phải bác cho một ứng dụng chương trình máy chủ - máy con để minh họa thì hay biết mấy. -
RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...
maidinhdan > 18-09-15, 12:41 AM
(11-09-15, 12:56 AM)tronghieu9792 Đã viết: Những bài viết của bác maidinhdan đều rất hay, bài này cũng vậy. Phải bác cho một ứng dụng chương trình máy chủ - máy con để minh họa thì hay biết mấy.
Xin ghi nhận ý kiến này, trong thời gian gần nhất sẽ có 1 demo cho vấn đề này
Dự kiến: 14/12/2015
Thân mến! -
RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...
cpucloi > 12-10-15, 09:50 PM
Không phải là mọi người không cho ý kiến, mà có thể họ chưa hiểu thôi mà pác.
Lâu lâu em cũng mới lên diễn đàn, nhiều bài của pác còn chưa xem được hết.
Pác tiếp tục hướng dẫn anh em nha. -
RE: [Demo]_Code Kiểm tra Máy chủ tắt hay mở...
maidinhdan > 13-10-15, 09:09 PM
(12-10-15, 09:50 PM)cpucloi Đã viết: Không phải là mọi người không cho ý kiến, mà có thể họ chưa hiểu thôi mà pác.
Lâu lâu em cũng mới lên diễn đàn, nhiều bài của pác còn chưa xem được hết.
Pác tiếp tục hướng dẫn anh em nha.
Cứ xem từ từ, có vài Demo hà.
Bài viết mới kiểm tra dựa trên IP của máy: [Hàm] [Demo] Hàm kiểm tra IP tắt hay mở