自动删除最近 N 日的文件 vbs

100fun

于 2010-01-05 11:36:00 发布

阅读量636

点赞数

分类专栏：收藏代码文章标签： path function file each

收藏代码专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一段VBS脚本代码，用于清理指定路径下超过30天的SQL备份文件及子文件夹。通过设置文件路径和日志文件，脚本能够记录被删除的文件名并检查文件的最后修改日期。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

option explicit
dim fpath,fso,logfile,fwrite
fpath="E:/SQLBackup/"
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 - 30 Then '判断是否超过30天
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 - 30 Then '判断是否超过30天
fso.deletefolder(sfolder)
'Wscript.Echo file
End If
next
end function