Dim fso As Object, Drive As Object, str$
    Set fso = CreateObject("Scripting.FileSystemObject")
For Each Drive In fso.Drives
 If Drive.DriveType = 1 Then
    str = "DriveLetter: " & Drive.DriveLetter & vbCrLf & _
    "AvailableSpace: " & Drive.AvailableSpace & vbCrLf & _
    "DriveType: " & Drive.DriveType & vbCrLf & _
    "FileSystem: " & Drive.FileSystem & vbCrLf & _
    "FreeSpace: " & Drive.FreeSpace & vbCrLf & _
    "IsReady: " & Drive.IsReady & vbCrLf & _
    "Path: " & Drive.Path & vbCrLf & _
    "RootFolder (Path): " & Drive.RootFolder.Path & vbCrLf & _
    "SerialNumber: " & Drive.SerialNumber & vbCrLf & _
    "ShareName: " & Drive.ShareName & vbCrLf & _
    "TotalSize: " & Drive.TotalSize & vbCrLf & _
    "VolumeName: " & Drive.VolumeName
    Debug.Print str
 End If
Next