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

转载  更新时间:2016年10月11日 22:44:29   投稿:mdxy-dxy   我要评论

这篇文章主要介绍了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 & ": - " & 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

相关文章

  • VBS备忘录启动代码

    VBS备忘录启动代码

    已经第二次了,上班后没把电话解除,总记不起这件事。做了个备忘录,放在启动项里,每次启动系统后都会执行,弹出相关事项,即便自己没有记住也可以给个提醒了
    2008-06-06
  • VBS sendkeys 模拟击键操作 问题解决

    VBS sendkeys 模拟击键操作 问题解决

    今天有人问我如何向APPlication 发送双引号,分号等,我在这里做一个总结,方便你使用参考
    2009-07-07
  • 用vbs检查注册表项的访问权限的代码

    用vbs检查注册表项的访问权限的代码

    有时候我们需要知道我们是否对注册表有访问权限,下面的代码就是解决了这个问题,检查下是否能用vbs修改注册表项
    2008-06-06
  • 利用vbscript的for命令实现定时关机

    利用vbscript的for命令实现定时关机

    利用vbscript的for命令实现定时关机...
    2007-12-12
  • VBS教程:VBScript 基础-使用循环语句

    VBS教程:VBScript 基础-使用循环语句

    VBS教程:VBScript 基础-使用循环语句...
    2006-11-11
  • vbs定时发送邮件的方法与代码

    vbs定时发送邮件的方法与代码

    vbs定时发送邮件的方法与代码...
    2007-03-03
  • 通过vbs获取远程host文件并保存到指定目录

    通过vbs获取远程host文件并保存到指定目录

    最近需要访问google联盟后台,但经常无法访问,看到有网友提供了一份vbs版本的获取host并保存到指定目录的代码,特分享下
    2014-12-12
  • vbs选择文件夹效果代码

    vbs选择文件夹效果代码

    非常不错的用vbs实现选择文件夹方法
    2008-08-08
  • VBS基础教程

    VBS基础教程

    VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了
    2012-12-12
  • ActiveX漏洞通用Exploit vbs修正版

    ActiveX漏洞通用Exploit vbs修正版

    作者:疯狗 终于在milw0rm找到了一个不错的shellcode,down&exec的,灰常好用!顺手写了一个C测试了下,结果是成功下载并执行了"木马",muma.exe是我用delphi写的一个简单的执行测试程序,无毒无害。
    2008-04-04

最新评论