vbs-驱动器类型

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

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

Function ShowDriveType(drvpath)
Dim fso, d, t
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(drvpath)
Select Case d.DriveType
Case 0：t = "Unknown"
Case 1：t = "Removable"
Case 2：t = "Fixed"
Case 3：t = "Network"
Case 4：t = "CD-ROM"
Case 5：t = "RAM Disk"
End Select
ShowDriveType = "Drive " & d.DriveLetter & "：- " & t
End Function