Sub フォルダを移動させる()
    
    フォルダパス = "C:\test\移動テスト\test1\これが移動する"
    移動先パス = "C:\test\移動テスト\test2\これが移動する"
    
Set フォルダ = CreateObject("Scripting.FileSystemObject") '実行設定

    フォルダ.MoveFolder フォルダパス, 移動先パス
    
End Sub