FileSystemObject：フォルダやファイルをコピー（Copy メソッド）

サイト管理人

9年前

フォルダやファイルをコピー（Copy メソッド）

FileSystemObject（FSO）で、指定したフォルダやファイルを別の場所にコピーするには、Folder オブジェクト または、File オブジェクト の Copy メソッド を使用します。
FileSystemObject（FSO）のインスタンスを生成する方法は、ファイルシステムオブジェクト（FileSystemObject）の使い方を参照してください。

【書式】

object.Copy destination [, overwrite ]

引数・戻り値

object ・・・ File オブジェクト または、Folder オブジェクト を指定します。
destination ・・・ファイルまたはフォルダのコピー先を指定します。ワイルドカード文字は使用できません。
overwrite ・・・ブール型（Boolean）の値を指定します。既存のファイルやはフォルダを上書きする場合は True（既定値）、上書きしない場合は False を指定します。省略可。

File オブジェクトに関しては、FileSystemObject：File オブジェクトを取得（GetFile）、Folder オブジェクトに関しては、FileSystemObject：Folder オブジェクトの取得を参照してください。

Copy メソッド使用例

サンプルVBAソース

　
Sub Sample_FSOCopy()

    Dim fso As New FileSystemObject
    Dim myFolder As Folder
    Dim myFile As File
    Dim aaa
    Set myFolder = fso.GetFolder("C:\Documents\mydata5\myfolder")
    Set myFile = fso.GetFile("C:\Documents\mydata5\test01.txt")
    
    myFolder.Copy Destination:="C:\Documents\mydata5\myfolder_copy"
    myFile.Copy "C:\Documents\mydata5\test02.txt", True
    
End Sub

Sub Sample_FSOCopy()

Dim fso As New FileSystemObject

Dim myFolder As Folder

Dim myFile As File

Dim aaa

Set myFolder = fso.GetFolder("C:\Documents\mydata5\myfolder")

Set myFile = fso.GetFile("C:\Documents\mydata5\test01.txt")

myFolder.Copy Destination:="C:\Documents\mydata5\myfolder_copy"

myFile.Copy "C:\Documents\mydata5\test02.txt", True

End Sub

実行結果

サンプルVBAソース実行前

実行後

フォルダやファイルをコピー（Copy メソッド）

引数・戻り値

Copy メソッド 使用例

サンプルVBAソース

実行結果

Copy メソッド使用例