近期有个需求需要对数据进行压缩备份,然后以日期进行命名,所以就整理一下脚本,分享给有帮助的同学;
需求:将D盘下的DATA文件夹进行压缩成zip格式,然后保存到D盘下的Backup文件夹中,然后以日期时间命名
因为vbs没有压缩的机制,所以我们调用压缩工具进行执行压缩,在此我们使用7zip进行压缩
首先是安装7zip压缩文件
下载后开始安装,我们一定要记住安装路劲
安装路劲:c:\program files\7-zip\
上脚本,注意路劲
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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
|
然后我们开始执行,压缩备份成功
最后我们可以通过系统的计划任务进行定期执行脚本了
本文转自 高文龙 51CTO博客,原文链接:http://blog.51cto.com/gaowenlong/1907443,如需转载请自行联系原作者