您现在的位置是:首页 > 文章详情

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

日期:2017-03-18点击:443

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

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

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

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

p_w_picpath

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份

p_w_picpath

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

p_w_picpath

原文链接:https://blog.51cto.com/gaowenlong/1907902
关注公众号

低调大师中文资讯倾力打造互联网数据资讯、行业资源、电子商务、移动互联网、网络营销平台。

持续更新报道IT业界、互联网、市场资讯、驱动更新,是最及时权威的产业资讯及硬件资讯报道平台。

转载内容版权归作者及来源网站所有,本站原创内容转载请注明来源。

文章评论

共有0条评论来说两句吧...

文章二维码

扫描即可查看该文章

点击排行

推荐阅读

最新文章