删除最后一次的备份文件vbs

最新推荐文章于 2021-08-11 11:02:25 发布

原创最新推荐文章于 2021-08-11 11:02:25 发布 · 513 阅读

CC 4.0 BY-SA版权

本文介绍了一段VBScript脚本，该脚本用于在指定目录下批量删除超过一定时间的.bak文件及其子文件夹中的类似文件。通过设置文件最后修改日期作为筛选条件，并递归地处理所有子文件夹，确保只保留最新的备份文件。

Dim fso,s,DeleteCount

Set fso = CreateObject("Scripting.FileSystemObject")

DeleteCount = DeleteCount + Xdelete(fso, "E:\baktest")

MsgBox "删除了" & DeleteCount & "个文件!"

Function Xdelete(fso, source)
Dim f0,f,DeleteCount,s,f2
Set s = fso.GetFolder(source)

'f0=s.datelastmodified '获取当前文件夹的最新更新时间 datelastmodified DateCreated
f0="2000-01-01 00:00:00"
For Each f2 In s.Files
'msgbox "begin "
If datediff("s",f0,f2.datelastmodified)>0 and right(f2.name,4) = ".bak" Then
'msgbox f2.name & f2.datelastmodified &f0
f0=f2.datelastmodified 'datelastmodified DateCreated

End if
Next

'Msgbox f0
DeleteCount = 0

For Each f In s.Files

If datediff("s",f.datelastmodified ,f0)>0 Then ' datelastmodified DateCreated
f.Delete False '删除文件
' msgbox f.name & f.datelastmodified &f0
DeleteCount = DeleteCount + 1
End if
Next

For Each f In s.SubFolders
DeleteCount = DeleteCount + Xdelete(fso, f.Path)

Next

Xdelete=DeleteCount

End Function