>>421
Sub Copy(SourceFilepath, DestinationFilepath)
  Set Fso = CreateObject("Scripting.FileSystemObject")
  Set SourceFile = Fso.GetFile(SourceFilepath)
  SourceFile.Copy DestinationFilepath
End Sub

これで