Các chiêu thức trong lập trình Lấy kiểu (Type) của đĩa

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 . 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