vbs如何判断磁盘类型和检测硬盘剩余空间

这篇文章主要为大家展示了“vbs如何判断磁盘类型和检测硬盘剩余空间”，内容简而易懂，条理清晰，希望能够帮助大家解决疑惑，下面让小编带领大家一起研究并学习一下“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

以上是“vbs如何判断磁盘类型和检测硬盘剩余空间”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注编程网行业资讯频道！