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

【问题标题】：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
如果其他方法都失败了，我将采用该选项。
停止的文件有什么特别之处吗？

标签： vba excel

【解决方案1】：

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

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

【讨论】：

它给了我这条消息：“运行时错误 448 - 未找到命名参数”
更正了 OverWriteFiles 的参数名称。试试看。
问题不在于该文件存在。仍在研究中。
听起来确实像是权限问题
是的，你是对的，我更改了文件夹权限 - 现在它就像一个魅力！你知道是否有更改文件夹权限的 vba 代码吗？