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