求助当目的地文件夹已存在则移动文件夹错误58失败？！如何改代码强制移动？

youxianwei

求助当目的地文件夹已存在则移动文件夹错误58失败？！如何改代码强制移动？

Sub MoveFolder()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
FromPath = "C:\子夹"
ToPath = "C:\母夹\子夹"
Set FSO = CreateObject("Scripting.FileSystemObject")
''FSO.MoveFolder FromPath, ToPath           '''''''如果ToPath已存在则会出现错误58无法移动子夹,怎么办?
FSO.CopyFolder FromPath, ToPath, True      ''''文件量大时又慢又占空间,不理想
Set FSO = Nothing
End Sub
其实我们日常手动操作剪切文件夹粘贴文件夹都是可行的，当出现重复文件时的确会提示，统一强制覆盖吧，有没有对应的自动执行代码？

cutecpu

Sub MoveFolder()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
FromPath = "C:\子夹"
ToPath = "C:\母夹\子夹"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(ToPath) Then FSO.DeleteFolder ToPath   '''''''先砍掉~~哈哈
FSO.MoveFolder FromPath, ToPath           '''''''如果ToPath已存在则会出现错误58无法移动子夹,怎么办?
Set FSO = Nothing
End Sub

youxianwei

cutecpu 发表于 2023-3-8 15:42
Sub MoveFolder()
Dim FSO As Object
Dim FromPath As String

您好，感谢，不过我的旧文件夹里面也存了些文件不想删，我想要在保留旧文件夹的基础上不断的并入。。。