David,
Here is the way I did it.
Option Compare Database
Option Explicit
'Makes a copy of the file
Function fCopyFile(strFile1 As String, strFile2 As String)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strFile1, strFile2, True
End Function
Private...