Vbs壓縮備份檔案夾以日期命名

近期有個需求需要對資料進行壓縮備份，然後以日期進行命名，是以就整理一下腳本，分享給有幫助的同學；

需求：将D盤下的DATA檔案夾進行壓縮成zip格式，然後儲存到D盤下的Backup檔案夾中，然後以日期時間命名

因為vbs沒有壓縮的機制，是以我們調用壓縮工具進行執行壓縮，在此我們使用7zip進行壓縮

首先是安裝7zip壓縮檔案

<a href="http://www.7-zip.org/" target="_blank">http://www.7-zip.org/</a>

<a href="http://s3.51cto.com/wyfs02/M00/8E/C6/wKiom1jKjBnwbz8YAAL8rnZbDhI811.png" target="_blank"></a>

下載下傳後開始安裝，我們一定要記住安裝路勁

<a href="http://s3.51cto.com/wyfs02/M02/8E/C6/wKiom1jKjB7SplRQAAisYmNZJw0962.png" target="_blank"></a>

安裝路勁：c:\program files\7-zip\

<a href="http://s3.51cto.com/wyfs02/M00/8E/C6/wKiom1jKjCGhoqViAAJVza9F7LY189.png" target="_blank"></a>

上腳本，注意路勁

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

<code>source</code> <code>= </code><code>"d:\DATA"</code> 

<code>dest = </code><code>"d:\backup\DATA "</code><code>&amp;Date()&amp;</code><code>" "</code><code>&amp;Replace(Time(),</code><code>":"</code><code>,</code><code>"-"</code><code>)&amp;</code><code>".zip"</code> 

<code>dest = Replace(dest,</code><code>"/"</code><code>,</code><code>"-"</code><code>)</code>

<code>dest = chr(34) &amp; dest &amp; chr(34)</code>

<code>currentpath = createobject(</code><code>"Scripting.FileSystemObject"</code><code>).GetFolder(</code><code>"."</code><code>).Path</code>

<code>path = chr(34) &amp; </code><code>"C:\Program Files\7-Zip\7z.exe"</code> <code>&amp;chr(34)</code>

<code>zip </code><code>source</code><code>,dest </code>

<code>Function zip(sourcep,Destp)</code>

<code>Set ws = CreateObject(</code><code>"wscript.shell"</code><code>)  </code>

<code>status = WS.Run(path&amp;</code><code>" a "</code><code>&amp;destp &amp; </code><code>" "</code> <code>&amp; sourcep,0) </code>

<code>  </code><code>If status = 0 Then </code>

<code>     </code><code>MsgBox </code><code>"ok"</code>  

<code>  </code><code>Else  </code>

<code>     </code><code>MsgBox </code><code>"false"</code>  

<code>  </code><code>End </code><code>if</code>

<code>End Function</code>

<a href="http://s3.51cto.com/wyfs02/M00/8E/C4/wKioL1jKjCLBfk_oAABWaH5tUlk269.png" target="_blank"></a>

然後我們開始執行,壓縮備份成功

<a href="http://s3.51cto.com/wyfs02/M01/8E/C6/wKiom1jKjCOwgt32AABlYx-FKYA934.png" target="_blank"></a>

最後我們可以通過系統的計劃任務進行定期執行腳本了

<a href="http://s3.51cto.com/wyfs02/M01/8E/C4/wKioL1jKjCWx1AhDAALegXpDydA687.png" target="_blank"></a>

本文轉自 高文龍 51CTO部落格，原文連結：http://blog.51cto.com/gaowenlong/1907443，如需轉載請自行聯系原作者