Imports System.IO
Sub GetAllDrives()
Dim driveArr As DriveInfo() = DriveInfo.GetDrives
For Each drive As DriveInfo In driveArr
If drive.IsReady Then
Console.WriteLine(String.Format("Name:{0} - Drive Type:{1} - Format:{2} - Label:{3} - Total Size:{4}" _
, drive.Name, drive.DriveType, drive.DriveFormat, drive.VolumeLabel, drive.TotalSize))
End If
Next