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