具有自動複製文件重命名

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