|
VBS脚本应用-根据磁盘空间删除指定文件夹(1) '网盟-黑火 制作，送给需要的朋友。
'作用：检查磁盘剩余空间，如果低于某个数值就删除一些指定的文件夹。
'注意：并不是指定的文件夹将全部删除，而是顺序删除，如果空间够了就不删后面的。
''''''''''''''''''''''''''''''''说明完'''''''''''''''''''''''''''''''''
Option EXPlicit
Dim strChkPath,strDelFod,intLessthan,objFso
strDelFod = "c:\netgame\文件夹1|e:\netgame\文件夹1|f:\文件夹1|d:\文件夹2" '可以删除的文件夹组,用“|”分隔
intLessthan = 20000 '少于多少MB
Set objFso = CreateObject("Scripting.FileSystemObject")
Dim arrDelFod,dicDrvState
Set dicDrvState = CreateObject("Scripting.Dictionary")
arrDelFod = Split(strDelFod,"|",-1)
Dim DelFod,drvPath
For Each DelFod In arrDelFod
drvPath = UCase(objFso.GetDriveName(DelFod))
dicDrvState.Item(drvPath) = GetFreeSpace(drvPath)
If dicDrvState.Item(drvPath) < FormatNumber(intLessthan,0) Then
If Ask(drvPath&" 盘小于 "&FormatNumber(intLessthan,0)&" MB,是否要删除 “"&DelFod&"”") Then
On Error Resume Next
objFso.DeleteFolder DelFod,True
If Err Then
err.Clear
Msgbox "不能删除文件夹，请检查 “"&DelFod&"”"&VBCrLf&"按确定继续",16,"错误"
|
