使用自动重命名复制文件

Question

我有两个带有静态名称的文件，我想使用VBA将这些文件复制到另一个地方，但是使用了原始名称，因此Windows 7显示了以下选项： 复制并覆盖，不要使用重命名原始文件进行复制和复制。

VBA可以做第三种选择吗？

Answer 1

也许这会有所帮助：

Sub copyAndRenameIfExistsElseCopy()

Dim fname As String, dname As String
fname = "C:\temp\folder1\one.txt"
dname = "C:\temp\folder2\one.txt"
rname = "C:\temp\folder2\one_renamed.txt"
If Dir(dname) <> "" Then
    FileCopy fname, rname
Else
    FileCopy fname, dname
End If

End Sub