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

共计 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 脚本放在一起，或者写入绝对地址。