vbs判断磁盘类型和检测硬盘剩余空间的实现代码
2016-10-20
32
核心代码:Function ShowDriveType(drvpath)Dim fso, d, tSet 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 ...