自動刪除超過10天的文件及文件夾vbs，主要是針對一些沒有用的文件夾。

代碼如下:

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 "命令執(zhí)行完成！"

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

將上面代碼存為vbs文件即可使用。