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

通过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