使用自动重命名复制文件

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