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

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份。