excel vba - 将文件从一个文件夹复制到另一个文件夹但是如果文件存在则不会覆盖？

Question

有人可以告诉我一种使用vba将文件从一个文件夹复制到另一个文件夹的方法，但条件是说文件是否已经存在但不会覆盖？

这是我的代码：

If Target.Column = Range("BL1").Column And Target.Row > 14 Then
  FileCopy "\\UKSH000-FILE06\purchasing\New_Supplier_Set_Ups_&_Audits\assets\audit.xls", "\\UKSH000-FILE06\purchasing\New_Supplier_Set_Ups_&_Audits\ATTACHMENTS\" & Range("B" & ActiveCell.Row) & "\audit.xls"
 End If

Answer 1

为了清晰起见，简化了一下你的路径：

Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists("\\path\to\destination" & stuff & "\audit.xls") Then
    FileCopy "\\path\to\source\audit.xls", "\\path\to\destination\" & stuff & "\audit.xls"
End If

Answer 2

FileCopy（sourceString，DestinationString，Boolean） 如果可以覆盖目标，则将布尔值设置为TRUE，默认情况下为false。