Hi,

The above code will show an error if the mdb you are trying to copy is opened ... You can try the below code which allows copying the mdb file though it is open...
[code=vb]
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileN ame As String, ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long


Private Sub...