Vbs压缩备份文件夹以日期命名

近期有个需求需要对数据进行压缩备份，然后以日期进行命名，所以就整理一下脚本，分享给有帮助的同学；
需求：将D盘下的DATA文件夹进行压缩成zip格式，然后保存到D盘下的Backup文件夹中，然后以日期时间命名
因为vbs没有压缩的机制，所以我们调用压缩工具进行执行压缩，在此我们使用7zip进行压缩
首先是安装7zip压缩文件
http://www.7-zip.org/



下载后开始安装，我们一定要记住安装路劲



安装路劲：c:\program files\7-zip\



上脚本，注意路劲

source = "d:\DATA"
dest = "d:\backup\DATA "&Date()&" "&Replace(Time(),":","-")&".zip"
dest = Replace(dest,"/","-")
dest = chr(34) & dest & chr(34)
currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
path = chr(34) & "C:\Program Files\7-Zip\7z.exe" &chr(34)

zip source,dest
Function zip(sourcep,Destp)
Set ws = CreateObject("wscript.shell")
status = WS.Run(path&" a "&destp & " " & sourcep,0)
If status = 0 Then
MsgBox "ok"
Else
MsgBox "false"
End if
End Function

然后我们开始执行,压缩备份成功




最后我们可以通过系统的计划任务进行定期执行脚本了




附件：http://down.51cto.com/data/2366512