Access 2010 将文件从工作站复制到服务器而无需覆盖

Question

我正在使用 Filecopy 选项将 pdf 和 One 文件从工作站复制到服务器并且工作正常，但是因为文件太多我只想复制新文件而不是现有文件。

这是我的代码：

   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

Access 2010 将文件从工作站复制到服务器而无需覆盖

Access 2010 Copy file from workstation to Server without override

vba

ms-access-2010