指定されたフォルダ配下をrobocopyにてバックアップする
'*************************************************************************
'指定されたフォルダ配下をrobocopyにてバックアップする
'*************************************************************************
Option Explicit
Const strSrc = "(コピー元フォルダ名)"
Const strDst = "\\(バックアップ先コンピュータ名)\(共有フォルダ名)"
Const strOpt = "/S /E /R:0 /XA:SHT /LOG:ログファイル名 /V /TEE" '/TEEはテスト時のみ使用
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
Dim strParm
strParm = strSrc & " " & strDst & "\" & GetSubFolderName(Now) & " " & strOpt
objWshShell.Run "c:\windows\system32\robocopy.exe " & strParm
Set objWshShell = Nothing
'*************************************************************************
'曜日に合わせたバックアップサブフォルダ名を求める
'\\(コンピュータ名)\(共有フォルダ名)配下にこのサブフォルダが作成される
'曜日毎に異なるフォルダ名なので、過去1週間分のデータを別々に保存できる
'*************************************************************************
Private Function GetSubFolderName(inDate)
Dim strNames
strNames = Array("1-Sunday", "2-Monday", "3-Tuesday", "4-Wednesday", "5-Thursday", "6-Friday", "7-Saturday")
GetSubFolderName = strNames(Weekday(inDate)-1)
End Function

最近のコメント