iT邦幫忙

0

【已解決】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

1 個回答

0
deshy
iT邦見習生 ‧ 2020-07-06 11:16:29
最佳解答

你可以先使用copy的方式,copy完成後再delete

感謝deshy老師指導,我在測試看看,謝謝!

我要發表回答

立即登入回答