核心代码:
Function ShowDriveType(drvpath)
Dim fso, d, t
Set fso = CreateObject(\”Scripting.FileSystemObject\”)
Set d = fso.GetDrive(fso.GetDriveName(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\” \’RAM
End Select
ShowDriveType = \”Drive \” & d.DriveLetter & \”: – \” & t
End Function
Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject(\”Scripting.FileSystemObject\”)
Set d = fso.GetDrive(fso.GetDriveName(drvPath)) \’d为F:
s = \”Drive \” & UCase(drvPath) & \” – \”
s = s & d.VolumeName & \” \”
s = s & \”Free Space: \” & FormatNumber(d.FreeSpace/1024, 0)
s = s & \” KBytes\”
ShowFreeSpace = s
End Function
Dim message
message = ShowDriveType(\”F:\\Programming\\Applications\”)
MsgBox message
message = ShowFreeSpace(\”F:\\Programming\\Applications\”)
MsgBox message