Tools & Informations
        

"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 終了します")


E-mail : webmaster@global.co.jp Copyright (C) Global Network Ltd.1995-2005, All Rights Reserved.
本ホームページに掲載の会社名および製品名は各社の登録商標または商標です。