public class Test public Shared Sub Main Dim drive_info As New DriveInfo("c:\")
Console.WriteLine(drive_info.Name())
Console.WriteLine(drive_info.IsReady())
Console.WriteLine(drive_info.DriveType())
Console.WriteLine(drive_info.RootDirectory)
If drive_info.IsReady() Then
Console.WriteLine(drive_info.AvailableFreeSpace())
Console.WriteLine(drive_info.DriveFormat())
Console.WriteLine(drive_info.TotalFreeSpace())
Console.WriteLine(drive_info.VolumeLabel())
End If
