VBS获取磁盘剩余空间并执行某程序

3,378次阅读
没有评论

共计 719 个字符,预计需要花费 2 分钟才能阅读完成。

前两天群里朋友问到这个问题,在 C 盘剩余空间少于 1G 时自动清理垃圾文件。因此编下这个脚本。

 

Function ShowFreeSpace(drvPath)                     ‘ 定义函数

    Dim fso, d, s                          

    Set fso = CreateObject(“Scripting.FileSystemObject”)       

    Set d = fso.GetDrive(fso.GetDriveName(drvPath))        

    s = FormatNumber(d.FreeSpace/1024/1024/1024, 0)         ‘ 换算单位为 G

    ShowFreeSpace = s

End Function

    c= ShowFreeSpace(“C:”)                      ‘ 定义变量 C 为 C 盘剩余空间

If(c)<1 then                                ‘if 语句,如果 C 盘剩余空间小于 1G,则执行 cmd.exe

    Dim wsh

    Set wsh=CreateObject(“Wscript.Shell”)

    Wsh.Run “cmd.exe”                                 ‘ 需要执行的程序,最好使用绝对路径    

End If

因为清除垃圾文件各自方法不同,这里就不定义删除垃圾文件的脚本了,用第三方的脚本更适合一些,因为很多童鞋自己手上都有自己的删除垃圾文件的脚本。把 cmd.exe 替换为对应的脚本就好。
需要注意的是把对应的脚本与本 VBS 脚本放在一起,或者写入绝对地址。

正文完
 
Winter
版权声明:本站原创文章,由 Winter 2015-03-11发表,共计719字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)
验证码