Sub フォルダをコピーする()

    Set フォルダ = CreateObject("Scripting.FileSystemObject") '実行設定
    
    Call フォルダ.CopyFolder("C:\test\test1", "C:\test\test2")

End Sub