具有自动复制文件重命名

我有两个文件与静态的名字，我想用VBA将这些文件复制到另一个地方，但使用原来的名称，所以Windows 7显示了该选项：复制和覆盖，鸵鸟政策副本并复制重命名原始文件。具有自动复制文件重命名

VBA可以做什么做第三种选择？

2015-07-11 Rohlik

你在Excel中使用VBA？如果是的话，你写了vba代码，你的代码是什么样的？ – dgorti

我尝试类似的东西： '子CopyFiles（）昏暗FSO作为对象昏暗FromPath作为字符串昏暗ToPath作为字符串昏暗FileExt作为字符串 FromPath = “d：\” ToPath =“d：\美孚\ “ FileExt = ”* .TXT *“ 如果右（FromPath，1）<> ”\“。然后 FromPath = FromPath＆ ”\“ 结束如果设置FSO =的CreateObject（” Scripting.FileSystemObject的“） FSO.CopyFile Source：= FromPath＆FileExt，Destin ation：= ToPath MsgBox“完成！” End Sub' 我的代码只是复制文件，只有当命运路径不包含源文件时。 – Rohlik

你可以在命令行中使用xcopy类型xcopy /？在命令窗口中查看帮助。 https://technet.microsoft.com/en-us/library/cc771254.aspx –

也许这将帮助：

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

来源

2015-07-11 21:32:13 Roland

@Roland谢谢你的时间，但你的代码只帮助我一次。第二天，当我想通过VBA复制已更改的源文件时，我需要另一个名称。 – Rohlik

具有自动复制文件重命名

回答

相关问题