近期有个需求需要对数据进行压缩备份,然后以日期进行命名,所以就整理一下脚本,分享给有帮助的同学;
需求:将D盘下的DATA文件夹进行压缩成zip格式,然后保存到D盘下的Backup文件夹中,然后以日期时间命名
因为vbs没有压缩的机制,所以我们调用压缩工具进行执行压缩,在此我们使用7zip进行压缩
首先是安装7zip压缩文件
下载后开始安装,我们一定要记住安装路劲
安装路劲: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
然后我们开始执行,压缩备份成功
最后我们可以通过系统的计划任务进行定期执行脚本了
时间: 2024-12-15 12:54:33