用VBScript备份指定文件夹中文件

    遇到一个简单的备份需求，需要满足以下要求：

1、需要备份的数据为本地电脑中的几个指定文件夹中的文件。文件夹中的文件主要是一些Excel、Word等Office文档。

2、这几个文件夹设置了共享，其中的文件可能被多人打开编辑。在备份开始时，需要取消共享；备份结束时，恢复共享。

3、需要对备份文件进行压缩，并设置备份文件的打开密码。

4、每次备份都生成单独的备份文件，并不覆盖之前的备份文件。但可以删除一定天数之前的备份文件。

5、备份文件需要存放在局域网服务器上的一个设置了访问用户名和密码的共享目录中。

6、备份过程需产生日志信息。

 

    考虑了windows自带的Ntbackup.exe以及其他多个同步软件后，决定采用VBScript调用rar进行压缩的方式。

 

1、备份的VBScript脚本文件 backup.vbs 内容如下：

     根据自己的实际情况，按照前20行的提示更改参数。

Option Explicit Dim strRarPath 'rar文件路径 strRarPath = "C:/Program Files/WinRAR/" Dim strRemoteFloder '远程目标文件夹路径 strRemoteFloder = "//192.168.1.95/bk/" Dim intDayNum '备份文件保留天数 intDayNum = -7 Dim strBackupFilePW '备份文件密码，密码为空""，则不加密码 strBackupFilePW = "wz" Dim strBackupFilePre '备份文件前缀 strBackupFilePre = "wedgedata" Dim intShowRarProcess '是否显示压缩过程：0 隐藏；1 显示 intShowRarProcess = 1 Dim intDelSamePreFile '删除过期备份文件，是否需要前缀相同：0 否；1 是 intDelSamePreFile = 1 Dim intLogFloder '日志文件是否采用目标文件夹路径：0 否；1 是 intLogFloder = 1 '需备份的源文件路径请在此vbs同目录下的“backup.lst”中更改。可以添加多个不同的目录，一行一个目录。 '需要注意修改网路共享的语句包括步骤 1.1、1.6、3.2 Dim strVBSFloder, strTempFloder, strLogFloder '当前文件夹路径、临时文件夹路径、日志文件路径，临时文件夹为当前目录下的temp目录，由程序自动获得或