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

最新推荐文章于 2020-04-18 11:33:23 发布

转载最新推荐文章于 2020-04-18 11:33:23 发布 · 265 阅读

0 ·

CC 4.0 BY-SA版权

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

文章标签：

#shell

本文介绍如何使用VBS脚本配合7-Zip工具实现文件夹的自动压缩备份，并按日期时间命名，便于管理和恢复。通过Windows计划任务可实现定期自动执行脚本。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

近期有个需求需要对数据进行压缩备份，然后以日期进行命名，所以就整理一下脚本，分享给有帮助的同学；

需求：将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