vbs判断磁盘类型和检测硬盘剩余空间的实现代码

核心代码：

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 &
     ": - " &
     tEnd 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 = sEnd Function Dim message message = ShowDriveType("F:\PRogramming\Applications")MsgBox messagemessage = ShowFreeSpace("F:\Programming\Applications")MsgBox message

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！