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

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

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

该脚本主要分为三部分：

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

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

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

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

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

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