Access 2010 Datei von der Arbeitsstation zum Server kopieren ohne zu überschreiben

Question

Ich benutze Filecopy Option, um pdf und One Dateien von einer Arbeitsstation auf den Server zu kopieren und es funktioniert gut, aber weil es zu viele Dateien gibt, will ich nur die neuen kopieren und nicht das Bestehende.

Dies ist mein Code:

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 

jede mögliche Hilfe geschätzt wird.

Answer 1

könnten Sie das Filesystem verwenden zuerst nicht bereits die Datei wird, um sicherzustellen, existieren:

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