VBA CopyFolderでフォルダをコピーする(FSO)

このチュートリアルでは、FileSystemObjectのCopyFolderメソッドの使い方を説明します。

VBAのFileSystemObjectでフォルダをコピーする

このレッスンでは、FileSystemObjectを使用します。これを使うには、VBスクリプトのランタイムライブラリへの参照を設定する必要があります。詳しくはこちらをご覧ください。

FileSystemObjectのCopyFolderメソッドを使えば、簡単にフォルダをコピーすることができます。

Sub FSOCopyFolder()
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")

    FSO.CopyFolder "C:\Src", "C:\Dst\" 'Dstフォルダーが存在
    FSO.CopyFolder "C:\Src", "C:\DstNew" 'DstNewフォルダーを作成

End Sub

source にワイルドカード文字が含まれている場合、または destination がパス区切り文字 (\) で終わっている場合、destination は既存のフォルダであると見なされ、その中に一致するフォルダとサブフォルダをコピーすることになります。それ以外の場合、destination は作成するフォルダーの名前であると見なされます。