当前位置： 移动技术网 > IT编程>脚本编程>VBScript > vbs判断磁盘类型和检测硬盘剩余空间的实现代码

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

2017年12月01日  | 移动技术网IT编程  | 我要评论

逃之夭夭打一字,肖启华,五一劳动节的资料

核心代码：

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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网