參考引用:DriveInfo.GetDrives Method
---
Imports System.IO
Imports System
Class Test
Public Shared Sub Main()
Dim allDrives As DriveInfo() = DriveInfo.GetDrives()
For Each d As DriveInfo In allDrives
Console.WriteLine("Drive {0}", d.Name)
Console.WriteLine(" Drive type: {0}", d.DriveType)
If d.IsReady Then
Console.WriteLine(" Volume label: {0}", d.VolumeLabel)
Console.WriteLine(" File system: {0}", d.DriveFormat)
Console.WriteLine(" Available space to current user:{0, 15} bytes", d.AvailableFreeSpace)
Console.WriteLine(" Total available space: {0, 15} bytes", d.TotalFreeSpace)
Console.WriteLine(" Total size of drive: {0, 15} bytes ", d.TotalSize)
End If
Next
End Sub
End Class
沒有留言:
張貼留言