Thủ tục VBA, VB6 đọc thông tin về ổ đĩa

[PhanTuHuong]

Đây là thủ tục tôi sưu tầm từ caulacbovb, dùng để đọc thông tin toàn bộ các ổ đĩa:

Sub Test()
 Set colDrives = CreateObject("Scripting.FileSystemObject").Drives
 On Error Resume Next
 For Each objDrive In colDrives
     a = a & "Drive letter: " & objDrive.DriveLetter & vbCrLf
     a = a & "Available space: " & objDrive.AvailableSpace & vbCrLf
     a = a & "Drive type: " & objDrive.DriveType & vbCrLf
     a = a & "File system: " & objDrive.FileSystem & vbCrLf
     a = a & "Free space: " & objDrive.FreeSpace & vbCrLf
     a = a & "Is ready: " & objDrive.IsReady & vbCrLf
     a = a & "Path: " & objDrive.Path & vbCrLf
     a = a & "Root folder: " & objDrive.RootFolder & vbCrLf
     a = a & "Serial number: " & objDrive.SerialNumber & vbCrLf
     a = a & "Share name: " & objDrive.ShareName & vbCrLf
     a = a & "Total size: " & objDrive.TotalSize & vbCrLf
     a = a & "Volume name: " & objDrive.VolumeName & vbCrLf
 Next
  MsgBox a
  Set colDrives = Nothing
  Set objDrive = Nothing
End Sub