VBS磁盘清理

'configure
Dim maxSize
Dim delFolders                                 'folders array
maxSize=5*1024*1024*1024                 'byte
delFolders=array("d:\nybc\bocai\game\暗黑II-毁灭之王","d:\nybc\bocai\game\惊天动地")

'procedure
On Error Resume Next
set fso=createobject("scripting.filesystemobject")
if fso.getfolder("B:\").drive.AvailableSpace<maxSize then
         for i=0 to ubound(delFolders)
                 if fso.folderExists(delFolders(i)) then
                         err.clear()
                         fso.deleteFolder fso.getFolder(delFolders(i))
                         if err then
                                 ErrMsg=Msgbox("删除文件夹 {"+delFolders(i)+"} 时出错！",vbAbortRetryIgnore,"错误")
                                 If ErrMsg=vbretry then
                                         i=i-1
                                 ElseIf ErrMsg=vbAbort then
                                         Wscript.quit()
                                 End If
                         End if
                 end if
         next
end if
set fso=nothing
msgbox "清理完毕，谢谢使用！",vbok,"提示"