如果已经有同名文件，如何将文件复制到文件夹中？

Posted 2023-02-23

【中文标题】如果已经有同名文件，如何将文件复制到文件夹中？

【英文标题】：How to copy a file to a folder if there is already a file with the same name?

【发布时间】：2016-06-14 12:06:17

【问题描述】：

我正在尝试编写一个 Excel VBA 宏，该宏将遍历文件夹路径列表，获取这些文件夹中的所有文件并将它们复制到单个文件夹中。一切正常，直到宏到达目标文件夹中已存在的文件，然后它返回消息：“运行时错误 70 - 权限被拒绝”

这是我目前使用的代码：

FSO.CopyFolder Source:=FromPath, Destination:=topath

如果可能，我希望覆盖重复的文件。

提前致谢！

【问题讨论】：

如果文件已经存在，为什么不先删除它呢？ see here for more info

如果其他方法都失败了，我将采用该选项。

停止的文件有什么特别之处吗？

【参考方案1】：

CopyFolder 方法有一个可选的 OverWriteFiles 参数...

FSO.CopyFolder Source:=FromPath, Destination:=topath, OverWriteFiles:=True

【讨论】：

它给了我这条消息：“运行时错误 448 - 未找到命名参数”

更正了 OverWriteFiles 的参数名称。试试看。

问题不在于该文件存在。仍在研究中。

听起来确实像是权限问题

是的，你是对的，我更改了文件夹权限 - 现在它就像一个魅力！你知道是否有更改文件夹权限的 vba 代码吗？