通过vbs脚本备份数据-本地到异地 

做为运维的管理员来说，维护数据是最重要的工作之一；对于备份来说，现在有很多备份工具，但是我们也可以通过系统自带的计划任务+vbs进行重要数据的备份；话不多说了，具体信息见下：

该脚本主要分为三部分：

一、.将整个目录拷贝，文件夹+文件夹内部的文件

1
2
3
4
5
strFolder1=
"D:\Software Install\酷狗"'//要查找的目录
strFolder2="\\192.168.4.56\l$\" '//目标目录,注意后面的反斜杠要加上
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder strFolder1, strFolder2
msgbox "finish"

二、备份目录下的文件，不拷贝文件夹

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
On Error Resume Next
Dim strFolder1,strFolder2
strFolder1=
"E:\test"'//要查找的目录
strFolder2="E:\B\" '//目标目录,注意后面的反斜杠要加上
Call CopyFiles(strFolder1)
MsgBox "完成！"
WScript.Quit
Sub CopyFiles(strPath)
Dim Folder,subFolders,Files,File,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.Getfolder(strPath)
Set subFolders = Folder.subFolders
Set Files = Folder.Files
For Each File In Files
fso.CopyFile File.Path,strFolder2,False '设置为false，表示如果文件存在则不覆盖
If Err.Number<>0 Then Err.Clear
Next
For Each subfolder In subFolders
CopyFiles(subFolder.Path) '递归查找子目录
Next
End Sub

三、备份目录下的指定文件

1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error Resume Next
Dim strFolder1,strFolder2
strFolder1=
"D:\IIS\ChangPwd\log\resetlog.txt"'//要查找的目录
strFolder2="\\192.168.7.31\d$\IIS2\" '//目标目录,注意后面的反斜杠要加上
Call CopyFiles(strFolder1)
MsgBox "完成！"
WScript.Quit
Sub CopyFiles(strPath)
Dim Folder,subFolders,Files,File,fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strFolder1,strFolder2,True '设置为false，表示如果文件存在则不覆盖
End Sub