vbs判断磁盘类型和检测硬盘剩余空间的实现代码
更新时间:2016年10月11日 22:44:29 投稿:mdxy-dxy
这篇文章主要介绍了vbs判断磁盘类型和检测硬盘剩余空间的实现代码,需要的朋友可以参考下
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud)
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
核心代码:
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
相关文章
bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码
bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码,类似小偷程序,通过正则匹配,虽然现在已经无法使用,但代码不错,原理都有2011-12-12VBS教程:VBscript属性-Description 属性
VBS教程:VBscript属性-Description 属性...2006-11-11
最新评论