自動刪除超過10天的文件及文件夾的vbs代碼

    自動刪除超過10天的文件及文件夾vbs，主要是針對一些沒有用的文件夾。
    代碼如下:
    option explicit
    dim fpath,fso,logfile,fwrite
    fpath=inputbox ("輸入目標(biāo)文件夾","文件處理器")
    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 "目標(biāo)文件夾不存在！"
    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文件即可使用。