簡単なバックアップにどうぞ 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