【已解決】EXCEL VBA 移動文件夾問題

各位老師好!!
我有一些移動資料夾的問題，不知如何修改，請各位老師幫幫忙
1. 此段內容要如何修改成有強制覆蓋取代已有的文件夾?

2. 此段內容無法會顯示沒有權限不給我移動，但我確定權限已經開啟，而且我改成CopyFolder是可以使用的。

3. 要如何修改自動抓取桌面的 " *-T " 和 " *-B " 而不指定User名稱是否只能用Environ("USERPROFILE") 方法呢?

請各位老師指導指導，謝謝。

Sub move()

    F5 = "C:\Users\123\桌面\*-T"
    F6 = "C:\Users\123\桌面\*-B"
    P10 = "\\172.16.0.1\test"

    Set GO = CreateObject("scripting.filesystemobject")
            GO.MoveFolder Source:=F5, Destination:=P10
            GO.MoveFolder Source:=F6, Destination:=P10
    Set GO = Nothing
End Sub