【VBA】ファイルをコピー(CopyFile) | デイレコ DairyRecord-blog

FileSystemObjectのCopyFileメソッドについてです。

CopyFileメソッド

ファイルを指定したフォルダーにコピーします。

FileSystemObject.CopyFile source , destination [overwrite]

[ ]は省略可という意味

引　数	必須 / 省略可	詳　細
コピーするファイル (CopyFile source)	必須	・コピーするファイルパスを指定。（コピーするファイルがない場合はエラー）・ワイルドカード（.txt とか .csv など）で複数コピーできます。
コピー先フォルダー (destination)	必須	・コピー先のフォルダーパスを指定。（コピー先フォルダーがない場合はエラー）・ワイルドカード不可。
上書き (overwrite)	省略可	・ファイルを上書きするかブール値で指定。 True ：上書き（既定値） False ：上書きしない（コピー先のフォルダー内に読み取り専用属性が設定されている場合はエラー）

Folder1からFolder2に、test1.txtをコピーします。

Sub test()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'1つの指定したファイルを別フォルダーにコピぺ

fso.CopyFile "D:\FSO\Folder1\test1.txt", "D:\FSO\Folder2\"

End Sub

Folder1からFolder2に、ワイルドカード*.txtを指定で、拡張子が.txtのみの複数ファイルがコピーできます。

例えばワイルドカードでテキストファイルのみ（*.txt）とかcsvファイル（*.csv）のみとかをコピーしたい場合に有効活用できます。

Sub test2()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'複数のテキストファイルをワイルドカードで別フォルダーにコピぺ

fso.CopyFile "D:\FSO\Folder1\*.txt", "D:\FSO\Folder2\"

End Sub

上書きしない指定（False）をして、コピー先フォルダーに、すでに同じ名前のファイルがある場合はエラーになります。

Sub test3()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'False指定した場合

'コピぺ先フォルダーに同じ名前のファイルがある場合はエラー

fso.copyFile "D:\FSO\Folder1\test1.txt", "D:\FSO\Folder2\", False

End Sub