Sub Copy_AnyFile() Dim fs As Object Dim strDb As String Set fs = CreateObject("Scripting.FileSystemObject") strDb = "C:\NewAccessDb.mdb" fs.CopyFile strDb, CurrentProject.Path & "\" Set fs = Nothing End Sub