Option Explicit
''''''''''''''說明''''''''''''
'網盟-黑火制作，送給需要的朋友。
'配置文件“Listfile.ini”的格式如下：
'要刪除什么(文件|目錄)=要執行刪除的文件夾=排除1;排除2;排除3............
'配置文件可以有多行，以便對多個目錄進行操作。
'配置文件里以“/”開頭的行為注釋行。
'排除多個內容時，使用分號“;”進行分隔。
'↓↓↓ 配置文件例子：↓↓↓
'/配置文件開始
'目錄=D:/=System Volume Information;網絡游戲;單機游戲;小游戲
'目錄=C:/Program Files=qq;WinRAR
'文件=D:/網絡游戲=文件1.exe;文件2.exe
'/配置文件結束
'''''''''''''說明完''''''''''''
Dim Fso,Listfile,objListfile
Listfile = "" '設置配置文件路徑,如果配置文件和腳本放在一起，請保持原樣
If Listfile = "" Then Listfile = "Listfile.ini"
Set Fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objListfile = Fso.OpenTextFile(Listfile,1)
If Err Then
err.Clear
Msgbox "沒有找到配置文件 "&Listfile,16,"錯誤"
WScript.quit
End If
On Error GoTo 0
Dim flnum,fdnum,t1,t2,tm
flnum=0
fdnum=0
t1 = timer()
Dim Myline,LineArr,ListArr
Do While objListfile.AtEndOfStream <> True
Myline = LCase(Replace(objListfile.ReadLine,"==","="))
If Left(Myline,1) = "/" Then
'objListfile.SkipLine
ElseIf CheckLine(Myline) = 2 Then
LineArr = Split(Myline,"=")
'DoFolder = LineArr(1)
ListArr = Split(LineArr(2),";")
'MsgBox LineArr(0)
If LineArr(0) = "目錄" Then DelFolder LineArr(1),ListArr
If LineArr(0) = "文件" Then DelFile LineArr(1),ListArr
End If
Loop
t2 = timer()
tm=cstr(int(( (t2-t1)*10000 )+0.5)/10)
MsgBox "掃描完畢，共刪除 "&fdnum&" 個目錄, "&flnum& "個文件。"& vbCrLf &"耗時 "&tm&" 毫秒",64,"執行完畢"
'不需要顯示報告的話，注釋掉上面這一行
