"backup01.VBS"のソース プログラム


MsgBox("Protect します")

Set objFS = CreateObject("Scripting.FileSystemObject")

Folder1 = "E:\MyData"     ' Sending Folder（保存したいデータがある場所） 
Folder2 = "C:\ZZprotect"  ' Receiving Folder（データを受け取って保存する場所）
TimeCtr = 0
Time_str = Year(Now) & Right(("0" & CStr(Month(Now)+0)),2) & Right(("0" & CStr(Day(Now)+0)),2) & "_" & Right(("0" & CStr(Hour(Now)+0)),2) & Right(("0" & CStr(Minute(Now)+0)),2) & Right(("0" & CStr(Second(Now)+0)),2)  '← YYYYMMDD_HHMMSS_NNN を作成し、各桁をそろえます。

   If objFS.FolderExists(Folder2 & "\") = False Then
      objFS.CreateFolder(Folder2)
   End If

   objFS.CopyFolder Folder1, Folder2 & "\" & Time_str

MsgBox("Protect 終了します")