| |
| 13.15.4.DriveInfo: AvaiableFreeSpace, DriveFormat, TotalFreeSpace, VolumnLabel |
|
|
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 |
|