Private Sub Form_Load()
Dim fldr As Folder
Dim fso As New FileSystemObject
Dim drv As Drive
Set drv = fso.GetDrive(fso.GetDriveName("d:"))
With List1
.AddItem "Available space: " & FormatNumber(drv.AvailableSpace / 1024, 0) & " BK"
.AddItem "Drive letter: " & drv.DriveLetter
.AddItem "Drive type: " & drv.DriveType
.AddItem "Drive file system: " & drv.FileSystem
.AddItem "Drive free space: " & FormatNumber(drv.FreeSpace / 1024, 0) & " BK"
.AddItem "Drive is ready: " & drv.IsReady
.AddItem "Drive path: " & drv.Path
.AddItem "Root folder: " & drv.RootFolder
.AddItem "Serial number: " & drv.SerialNumber
.AddItem "Share name: " & drv.ShareName
.AddItem "Total size: " & FormatNumber(drv.TotalSize / 1024, 0) & " BK"
.AddItem "Volume name : " & drv.VolumeName
End With
End Sub