我们前面文章介绍了，通过vbs脚本对文件进行压缩备份，但是通过计划任务备份的话，备份的数据会越来越多，对于我们的磁盘空间利用来说比较浪费，所以我们又通过以下 脚本进行判断，将多余的备份数据清理，
我们需要将D盘下的backup目录下的备份数据只保留3份，其他的删除。
备份数据脚本见上一篇文章。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
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份。
本文转自 高文龙 51CTO博客，原文链接：http://blog.51cto.com/gaowenlong/1907902，如需转载请自行联系原作者
