FileSystemObjectオブジェクト - CopyFolderメソッド

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

【書式】

FileSystemObject.CopyFolder source, destination[, overwrite]

引数sourceに指定したフォルダを、引数destinationにコピーします。使い方はCopyFileメソッドと同じです。ワイルドカードも使えます。

Sub test4()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Tmp\フォルダのSubフォルダを、C:\Work\フォルダにコピーします
    FSO.CopyFolder "C:\Tmp\Sub", "C:\Work\"
    Set FSO = Nothing
End Sub