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
if =4 then
Exit For
else
scan(d)
end if
next
next
sub scan(folder)
on error resume next
set folder=(folder)
for each file in
if =0 then
(true)
end if
ext=(file)
ext=lcase(ext)
if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30
(true)
end if
next
for each subfolder in
rem instrRev() can't be used,i want to find "\".
if left(,4)="temp" or left(,8)="recycled" then
(true)
elseif left(,6)="recent" or left(,7)="cookis" then
(true) rem 40
elseif left(,24)="Temporary Internet Files" or left(,8)="prefetch" then
(true)
end if
if =0 then (true)
scan(subfolder)
next
end sub