ファイルをコピーするだけの wsh(vbs)

簡単なバックアップにどうぞ

Dim SourceFile, DestFolder, MessageStr
    SourceFile = "c:\TempA\foo.txt"
    DestFolder = "c:\TempB\"
    MessageStr = "コピーしていいですか？"

    if MsgBox(MessageStr, vbOKCancel, "確認") = vbOK then
        Dim FSO
        Set FSO = CreateObject("Scripting.FileSystemObject")
            FSO.CopyFile SourceFile, DestFolder
        Set FSO = nothing
    end if