自动删除当前目录10天以前文件夹的自动脚本

将以下的脚本存为delete.vbs文件，添加window计划任务即可：

 

option explicit
dim fpath,fso,logfile,fwrite
fpath=left(wscript.scriptfullname,instrrev(wscript.scriptfullname,"\")-1)

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 "目标文件夹不存在！"
        fwrite.writeline "目标文件夹不存在！" & path
        exit function
    end if

    set folder=fso.getfolder(path)
    set files=folder.files
    for each file in Files
        If file.DateLastModified < Now - 10  and  file.name<>"deltest.vbs"     Then '判断是否超过10天        
            fwrite.writeline path&"\"&file.name '记录被删除的文件
            fso.DeleteFile file,true  '删除文件
            '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