2025年5月6日 星期二

DriveInfo.GetDrives 取所有磁碟

 參考引用: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


2025年3月3日 星期一