Sub ファイル_すべてのファイル形式_をコピーする()

    Set システム = CreateObject("Scripting.FileSystemObject")
    
                         'sample1.txt  を   sample2.txt の名前でコピー保存する
    システム.CopyFile "C:\sample1.txt", "C:\sample2.txt"

End Sub