Public Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type

Public Const FO_COPY =  2 
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_NOCONFIRMATION = &H10

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As Any) As Long

Dim sh_op As SHFILEOPSTRUCT

With sh_op
   .hwnd =  0 
   .wFunc = FO_COPY
   .pFrom = NewFilePath & vbNullChar & vbNullChar
   .pTo = DBPath & vbNullChar & vbNullChar
   .fFlags = FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR
End With

Ret = SHFileOperation(sh_op)