Imports System.IO
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
End Sub
End class
c:\
True
3
c:\
35531018240
NTFS
35531018240