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

最新推荐文章于 2024-01-27 14:30:24 发布

转载最新推荐文章于 2024-01-27 14:30:24 发布 · 102 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://yq.aliyun.com/articles/427849

我们前面文章介绍了，通过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