Shared Sub Main()
For Each drive_info As DriveInfo In DriveInfo.GetDrives()
Console.Write(drive_info.Name & " " )
Console.WriteLine(drive_info.RootDirectory.ToString) If drive_info.IsReady() Then
Console.WriteLine( drive_info.DriveFormat()) End If
Next drive_info