ProgressBar

Option Explicit
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
Private Function myFileCopy(NewFilePath As String, DBPath As String)
    Dim sh_op As SHFILEOPSTRUCT
    Dim Ret As Long
    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)

End Function
Sub запуск()
myFileCopy "C:\test\test.txt", "C:\test2\test.txt"
End Sub