清除垃圾的VBS文件 自动查找多个盘

rem made by correy 
rem made at 2007.9.22 
rem it can be delete you computer's the follow things(except cd,dvd) 
rem it can be delete empty file and folder 
rem it can be delete .tmp ._mp .log .gid .chk .old file 
rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder. 
rem i am thinking how to delete the same size and same name's file and folder 

On Error GoTo 0 
Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object") 

for n = 1 to 3 
For Each d in fso.Drives 
if d.drivetype=4 then 
Exit For 
else 
scan(d) 
end if 
next 
next 

sub scan(folder) 
on error resume next 
set folder=fso.getfolder(folder) 
for each file in folder.files 
if file.size=0 then 
file.delete(true) 
end if 

ext=fso.GetExtensionName(file) 
ext=lcase(ext) 
if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30 
file.delete(true) 
end if 
next 
for each subfolder in folder.subfolders 

rem instrRev() can't be used,i want to find "/". 
if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then 
subfolder.delete(true) 
elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then 
subfolder.delete(true) rem 40 
elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then 
subfolder.delete(true) 
end if 

if subfolder.size=0 then subfolder.delete(true) 
scan(subfolder) 
next 
end sub