【VB】读取硬盘盘符及卷名(包括网络驱动器)

VB读取/获取盘盘符及卷名(包括网络驱动器)：

'读取硬盘列表
Public Function DiskList() As String
    On Error Resume Next
    Dim D
    'Fso读取磁盘列表
    For Each D In CreateObject("Scripting.FileSystemObject").Drives
        '读取盘符,卷名
        DiskList = DiskList & D.DriveLetter & ":\ 卷名:" & D.VolumeName & vbCrLf
        '判断是否为网络驱动器,网络驱动器没有卷名,有共享名称
        If D.DriveType = 3 Then DiskList = DiskList & D.DriveLetter & ":\ 卷名:" & D.ShareName & vbCrLf
    Next
End Function

MsgBox DiskList

VB读取硬盘盘符精简版(包括网络驱动器：

On Error Resume Next
Dim D, S  As String
For Each D In CreateObject("Scripting.FileSystemObject").Drives                 'Fso读取磁盘列表
    S = S & D.DriveLetter & vbCrLf                                              '读取盘符,卷名
Next
MsgBox S

DriveType DriveType 常数 语言参考：

--------------------------------------------------------------------------------
仅当类型库包含以下常数定义，且在您的工程文件中已经显式引用该类型库后，才允许使用这些常数。
对于 VBScript，必须在代码中显式声明这些常数。

常数  值 描述
Unknown  0 无法确定驱动器类型。
Removable 1 可移动媒体驱动器，包括软盘驱动器和其他多种存储设备。
Fixed  2 固定(不可移动)媒体驱动器,包括所有硬盘驱动器(包括可移动的硬盘)
Remote  3 网络驱动器，包括网络上任何位置的共享驱动器。
CDROM  4 CD-ROM 驱动器，不区分只读和可读写的 CD-ROM 驱动器。
RAMDisk  5 RAM磁盘,在本地计算机中占用一块"随机存取内存"(RAM)虚拟为磁盘驱动器
 
VolumeName 属性 描述设置或返回指定驱动器的卷标名。读/写属性。