Các chiêu thức trong lập trình Lấy kiểu (Type) của đĩa
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (50.86 KB, 1 trang )
Lấy kiểu (Type) của đĩa home
Binh khí : 1 nút ấn cới tên Command1, 1 DirListBox với tên Dir1, 1 DriveListBox với tên Drive1 ,1
FileListBox với tên File1
Xuất xứ : www.pscode.com
Đoạn mã
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal
nDrive As String) As Long
Public Function Drive_Type(DriveLetter As Variant) As Long
Dim strDL As String
strDL = Left$(DriveLetter, 1) + ":\"
Drive_Type = GetDriveType(strDL)
End Function
