option explicit 
dim fpath,fso,logfile,fwrite 
fpath=inputbox ("輸入目標文件夾","文件處理器") 
logfile="logfile.txt" 
set fso=createobject("scripting.filesystemobject") 
Set fwrite=fso.opentextfile(logfile,8,true) 
getfilename fpath 
fwrite.close 
Set fso=Nothing 
MsgBox "命令執行完成！" 
function getfilename(path) 
dim file,folder,sfolder,fname,subfolder,Files 
if not fso.folderexists(path) then 
set fso=nothing 
msgbox "目標文件夾不存在！" 
exit function 
end if 
set folder=fso.getfolder(path) 
set files=folder.files 
for each file in Files 
fwrite.writeline path&"/"&file.name 
If file.DateLastModified < Now - 10 Then '判斷是否超過10天 
fso.DeleteFile(file) 
'Wscript.Echo file 
End If 
next 
set subfolder=folder.subfolders 
for each sfolder in subfolder 
fwrite.writeline path&"/"&sfolder.name 
If sfolder.DateCreated < Now - 10 Then '判斷是否超過10天 
fso.deletefolder(sfolder) 
'Wscript.Echo file 
End If 
next 
end function