以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]狐表如何获得本机所有驱动器列表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88608)
--  作者：lzzhx
--  发布时间：2016/8/5 17:09:00
--  [求助]狐表如何获得本机所有驱动器列表
请教老师：狐表如何用代码获得本机所有驱动器列表
--  作者：大红袍
--  发布时间：2016/8/5 17:54:00
--  

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
--  作者：lzzhx
--  发布时间：2016/8/5 18:55:00
--  
谢谢大红袍老师
--  作者：lzzhx
--  发布时间：2016/8/8 11:56:00
--  
磁盘类型 d.DriveType  数字分别代表什么类型的磁盘？请老师给列举一下
--  作者：大红袍
--  发布时间：2016/8/8 12:16:00
--  

参考

 

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

 
--  作者：lzzhx
--  发布时间：2016/8/8 14:28:00
--  
磁盘类型 d.DriveType 返回的是数字 ，https://msdn.microsoft.com/zh-cn/library/system.io.drivetype(v=vs.80).aspx 中的内容是：
CDRom 此驱动器是一个光盘设备，如 CD 或 DVD-ROM。  Fixed 此驱动器是一个固定磁盘。  Network 此驱动器是一个网络驱动器。  NoRootDirectory 此驱动器没有根目录。  Ram 此驱动器是一个 RAM 磁盘。  Removable 此驱动器是一个可移动存储设备，如软盘驱动器或 USB 闪存驱动器。  Unknown 驱动器类型未知。

不知如何对应
--  作者：lzzhx
--  发布时间：2016/8/8 14:29:00
--  
CDRom此驱动器是一个光盘设备，如 CD 或 DVD-ROM。 
Fixed此驱动器是一个固定磁盘。 
Network此驱动器是一个网络驱动器。 
NoRootDirectory此驱动器没有根目录。 
Ram此驱动器是一个 RAM 磁盘。 
Removable此驱动器是一个可移动存储设备，如软盘驱动器或 USB 闪存驱动器。 
Unknown驱动器类型未知。 
--  作者：lzzhx
--  发布时间：2016/8/8 14:32:00
--  
如：返回
硬盘 : C:\\
类型 : 3
标题: 
格式: NTFS
硬盘 : D:\\
类型 : 3
标题: 
格式: NTFS
硬盘 : E:\\
类型 : 3
标题: 
格式: NTFS
硬盘 : F:\\
类型 : 3
标题: 
格式: NTFS
硬盘 : G:\\
类型 : 3
标题: 
格式: NTFS
硬盘 : H:\\
类型 : 5
硬盘 : I:\\
类型 : 2
标题: 
格式: FAT32
硬盘 : J:\\
类型 : 2
标题: ***
格式: FAT32
--  作者：大红袍
--  发布时间：2016/8/8 14:33:00
--  

For Each item As object In [Enum].GetValues(Gettype(system.io.drivetype))
    Output.Show(item & "-" & item.Tostring())
Next
--  作者：大红袍
--  发布时间：2016/8/8 14:34:00
--  

msgbox(system.io.drivetype.CDRom)