ファイルをコピーするWSH。簡易用のバックアップツールとして。
'-----------------------------------------------------------------------------------------
' ファイルをコピーするWBS
'
' 説明：SOURCE_FOLDERの中身をDEST_FOLDERにコピーします。(フォルダ名はCOPY_FOLDER_NAME＆タイムスタンプ)
'-----------------------------------------------------------------------------------------
'*****************************************************************************************
' 定数の定義
'*****************************************************************************************
'コピー元フォルダ(このフォルダの中身がコピーされる)
const SOURCE_FOLDER = "D:\コピー元"
'コピー先フォルダ
const DEST_FOLDER = "D:\コピー先"
'コピーフォルダのプリフィックス
const COPY_FOLDER_NAME = "BK_"
'*****************************************************************************************
' 処理メイン
'*****************************************************************************************
'ファイルシステムオブジェクト
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
'現在の時刻をYYYYMMDDHHMMSS形式で取得
WK_TIMESTAMP = Year(Now()) & Right("0" & Month(Now()),2) & Right("0" & Day(Now()),2) & Right("0" & hour(Now()),2) & Right("0" & minute(Now()),2) & Right("0" & second(Now()),2)
'ファイルのコピー(末尾にタイムスタンプを追加)
objFSO.CopyFolder SOURCE_FOLDER, DEST_FOLDER & "\" & COPY_FOLDER_NAME & WK_TIMESTAMP
msgbox "バックアップが完了しました。"
動作確認環境:Window XP sp2
