vbs判断磁盘类型和检测硬盘剩余空间.docVIP

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: ?