vbsスクリプトによるデータのバックアップ-ローカルからオフサイトへ
1679 ワード
vbsスクリプトによるデータのバックアップ-ローカルからオフサイトへ
メンテナンスの管理者として、データの維持は最も重要な仕事の一つです.バックアップには、現在多くのバックアップツールがありますが、システムが独自の計画タスク+vbsを通じて重要なデータのバックアップを行うこともできます.あまり話さないで、具体的な情報は以下の通りです.
このスクリプトは主に3つの部分に分かれています.
一、ディレクトリ全体をコピー、フォルダ+フォルダ内のファイル
二、ディレクトリの下のファイルをバックアップし、フォルダをコピーしない
三、バックアップディレクトリの下の指定ファイル
メンテナンスの管理者として、データの維持は最も重要な仕事の一つです.バックアップには、現在多くのバックアップツールがありますが、システムが独自の計画タスク+vbsを通じて重要なデータのバックアップを行うこともできます.あまり話さないで、具体的な情報は以下の通りです.
このスクリプトは主に3つの部分に分かれています.
一、ディレクトリ全体をコピー、フォルダ+フォルダ内のファイル
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