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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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

技术分享

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

技术分享

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

技术分享

本文出自 “高文龙” 博客,谢绝转载!

以上是关于Vbs压缩备份文件夹以日期命名的主要内容,如果未能解决你的问题,请参考以下文章

VBS获取指定目录下最新文件拷贝然后以当前日期命名

求一段VBS压缩RAR或ZIP代码

关于linux下的date日期,并以日期给文件命名

shell脚本----周期压缩备份日志文件

删除指定路径下指定天数之前(以文件的最后修改日期为准)的文件:BAT + VBS

pyhthon第一个小脚本——文件备份