■書式
Souurceで表される1つまたは複数のファイルを、Destinationで表されるフォルダにコピーする。OverWriteFilesはファイルを上書きするかを表すブール値を指定する。
Sub CopyFile(Source As String,Destination As String, [OverWriteFiles As Boolean = True])
VBA FileSystemObjectの主なプロパティとメソッド - ray88’s diary
VBA FileSystemObject(ファイルシステムオブジェクト)事前バインディングと実行時バインディング - ray88’s diary
■サンプルコード
Sub Test() Dim FSO As Object Dim MyPath As String 'ファイルシステムオブジェクトをインスタンス化 Set FSO = CreateObject("Scripting.FileSystemObject") MyPath = "C:\Users\デスクトップ\ExcelVBAプロジェクト\FSOテスト" '既に同名ファイルが存在しているかチェック If Not FSO.FileExists(MyPath & "\02.txt") Then 'ファイルをコピー FSO.CopyFile MyPath & "\01.txt", MyPath & "\02.txt" End If Set FSO = Nothing End Sub