访问2010复制文件从工作站到服务器没有覆盖

Question

我正在使用Filecopy选项复制PDF和一个文件从工作站到服务器，它工作良好，但因为有太多的文件，我想复制只是新的而不是现有的。

这是我的代码：

Dim LSQL, SOurce, DestinaTion, fILE As String 

SOurce = "c:\mapping\" 
DestinaTion = "\\rvfile03\Departments\Water\Common\FieldTickets\" 
fILE = Dir$(SOurce & "*.one") 
Do While Len(fILE) > 0 
    FileCopy SOurce & fILE, DestinaTion & fILE 
    fILE = Dir$() 
    Loop 

任何帮助将不胜感激。

Answer 1

你可以使用FileSystemObject第一，以确保该文件不存在：

Dim LSQL, SOurce, DestinaTion, fILE As String 
Dim FSO 

Set FSO = CreateObject("Scripting.FileSystemObject") 

SOurce = "c:\xfer\" 
DestinaTion = "c:\xfer2\" 
fILE = Dir$(SOurce & "*.adp") 
Do While Len(fILE) > 0 
    If FSO.FileExists(DestinaTion & fILE) = False Then 
     FileCopy SOurce & fILE, DestinaTion & fILE 
    End If 
    fILE = Dir$() 
Loop