Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hướng dẫn] [Demo]_Code Kiểm tra Máy chủ tắt hay mở...
#1
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]

Code sử dụng:
Mã PHP:
Function KiemtraFile(ByVal DuongdanFile As StringOptional 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ẻ...


File đính kèm
.zip   Demo_Kiem tra ket noi hoa Tap tin.zip (Kích cỡ: 16.37 KB / Tải về: 48)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Minh Tiên , tranthanhan1962 , cpucloi , Noname
#2
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 040
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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.
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn maidinhdan
#4
(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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
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.
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#6
(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à. 015 015 015 015


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ở
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 2,789 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Hướng Dẫn Demo Duyệt Web bằng Access maidinhdan 4 764 04-05-16, 10:13 PM
Bài mới nhất: quanghoasla
Lightbulb [Hỏi] Kiểm tra máy in có được mở không? nguyentung 2 555 06-05-14, 06:31 PM
Bài mới nhất: nguyentung
  [Help] Tìm kiếm theo nhiều điều kiện vulhu06 1 442 25-04-14, 11:57 AM
Bài mới nhất: vulhu06
  [Hỏi] cách tìm kiếm và in văn bản letrungkien 2 820 26-02-13, 11:39 AM
Bài mới nhất: Xuân Thanh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ