Vbs 清理备份数据-保留数据量

我们前面文章介绍了，通过vbs脚本对文件进行压缩备份，但是通过计划任务备份的话，备份的数据会越来越多，对于我们的磁盘空间利用来说比较浪费，所以我们又通过以下 脚本进行判断，将多余的备份数据清理，

我们需要将D盘下的backup目录下的备份数据只保留3份，其他的删除。

备份数据脚本见上一篇文章。

Set dic = CreateObject("scripting.dictionary")
set fso=CreateObject("Scripting.FileSystemObject")
dest = "c:\test\"
Lcount = 2
filecount(dest)
dicdelete(Lcount)
Sub dicdelete(fcount)
Do While(dic.Count > Lcount)
keys = dic.Keys
old = keys(0)
For Each key In keys
If old < key Then
old = key
End If
Next
file = dic.Item(old)
fso.DeleteFile dic.Item(old)
dic.Remove(old)
Loop
End Sub
sub filecount(StrPath)
set fs=fso.getfolder(StrPath).files
for each f in fs
key = DateDiff("s",fso.GetFile(f).DateLastModified,now)
If dic.Exists(key) Then
key = key + 1
End If
dic.Add key,f.Path
next
end sub

我们只保留3份

执行后，数据保留最新3份。