Folderオブジェクト - Copyメソッド

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. Folderオブジェクト

【書式】

Folder.Copy destination[, overwrite]

フォルダまたはフォルダ内の全ファイルをコピーします。

引数destinationにはコピー先のパスを指定します。引数destinationの最後に\がないときは、コピー元フォルダ内存在する全ファイルを引数destinationで指定したフォルダにコピーします。引数destinationの最後が\で終わるときは、コピー元フォルダを引数destinationで指定したフォルダのサブフォルダとしてコピーします。

引数overwriteは省略可能です。Trueを指定すると既存のフォルダやファイルを上書きします。Falseを指定すると上書きせずにエラーになります。省略するとTrueが指定されたとみなされます。

FolderオブジェクトのCopyメソッドは、FileSystemObjectオブジェクトのCopyFolderメソッドと同じ働きをします。

Sub test53()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Workフォルダ内の全ファイルをC:\Tmpフォルダにコピーします
    FSO.GetFolder("C:\Work").Copy "C:\Tmp"
    ''C:\WorkフォルダをC:\Tmpフォルダのサブフォルダとしてコピーします
    FSO.GetFolder("C:\Work").Copy "C:\Tmp\"
    Set FSO = Nothing
End Sub