主题：[求助]狐表如何获得本机所有驱动器列表

Dim allDrives() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()

Dim d As System.IO.DriveInfo
For Each d In allDrives
    output.show("硬盘 : " & d.name)
    output.show("类型 : " & d.DriveType)
    If d.IsReady = True Then
        output.show("标题: " & d.VolumeLabel)
        output.show("格式: " & d.DriveFormat)
        output.show("对当前用户的可用空间: " & d.AvailableFreeSpace & " bytes")
       
       
        output.show("全部可用空间: " & d.TotalFreeSpace & " bytes")
       
       
        output.show("整个盘容量: " & d.TotalSize & "bytes ")
    End If
Next

参考

https://msdn.microsoft.com/zh-cn/library/system.io.drivetype(v=vs.80).aspx

For Each item As object In [Enum].GetValues(Gettype(system.io.drivetype))
    Output.Show(item & "-" & item.Tostring())
Next