フォルダのバックアップ

・VBscriptでフォルダごとバックアップする。

「backup.vbs」

Dim fs

Dim source

Dim destination

source1 = "コピー元１"

source2 = "コピー元２"

destination = "コピー先" & Replace(Date, "/", "") 'フォルダ名はバックアップ時の日付

Set fs = WScript.CreateObject("Scripting.FileSystemObject")

fs.CreateFolder(destination)

fs.CopyFolder source1, destination & "\", false 'フォルダが存在していたら上書きはしない

fs.CopyFolder source2, destination & "\", false

＊コピー元、コピー先を適宜変更します。

＊メモ帳を新規作成し、拡張子はtxt→vbsに変更します。