.. May be this will help you TO COPY FILE OR FOLDER
Dim txtdbpath As String 'this is your database file
Dim txtdbpathcopy As String 'this is your copy path
Dim intResponse, fs
' the following double checks, Are you sure?
intResponse = MsgBox("Are you sure that you wish to make a copy of your file now?", vbYesNo + vbDefaultButton1 + vbQuestion, "Crystal Technosoft")
If (intResponse = 6) Then
Set fs = CreateObject("Scripting.FileSystemObject")
' txtdbpath = frmMain.cdgDialog.FileName
' txtdbpath = "D:\ABC.mdb"
txtdbpath = App.Path & "\" & "ABC.mdb"
txtdbpathcopy = "D:\"
fs.CopyFile txtdbpath, txtdbpathcopy, True
MsgBox "Done Successfully", vbInformation, "Crystal Technosoft"
Else
MsgBox "Not Done", vbCritical, "Crystal Technosoft"
End If