求助当目的地文件夹已存在则移动文件夹错误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
其实我们日常手动操作剪切文件夹粘贴文件夹都是可行的，当出现重复文件时的确会提示，统一强制覆盖吧，有没有对应的自动执行代码？


注意：旧夹里面也存了一些文件，不能删旧夹，因为我想不断的将新的同名新夹里的文件资料并入旧夹。。。

cidanji

先判断文件夹存在与否，如存在则删除（或exit）等

youxianwei

cidanji 发表于 2023-3-8 13:15
先判断文件夹存在与否，如存在则删除（或exit）等

谢谢，我想保留目的地文件夹，想要强制并入。。。

liulang0808

拷贝覆盖呢？

wanghan519

确实MoveFolder不行，就用CopyFolder，有个overwrite参数

破例

FSO.CopyFolder SourceFldr, DestinationFldr, True   '使用True强制覆盖已存在的目的地文件夹

破例

1. FSO.CopyFolder SourceFldr, DestinationFldr, True   '使用True强制覆盖已存在的目的地文件夹

复制代码

youxianwei

liulang0808 发表于 2023-3-8 13:34
拷贝覆盖呢？

如果出现同名文件重复的话直接覆盖吧。。

youxianwei

wanghan519 发表于 2023-3-8 13:40
确实MoveFolder不行，就用CopyFolder，有个overwrite参数

copyFolder文件量少还好，文件量大，就又慢又占空间了，其实我们日常手动操作剪切文件夹粘贴文件夹是可行的，但有没有这方面的自动操作代码？

wanghan519

非得要移动的话，搜了一下，pwsh（后来又试了只有版本7才这样，系统自带的版本5不行。。。）的move-item带参数-force即可，可以用vba的shell调用，但会有个黑窗口闪一下

说实在的，复制后删除源文件最方便写，要不然就遍历文件夹，逐个文件对比后移动...