Думаю вариант с АПИ вплоне подойдет.
Выдрал Кусок из рабочего прпоэкта. Кое что порезал для ясности.

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 FOF_ALLOWUNDO = &H40
Public Const FOF_SIMPLEPROGRESS = &H100
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


Public Sub MyCopy(NewFilePath As String)
Dim Ret As Long
Dim lenFileop As Long
Dim foBuf() As Byte
Dim sh_op As SHFILEOPSTRUCT

100 With sh_op
104 .hwnd = 0
108 .wFunc = FO_COPY
112 .pFrom = NewFilePath & vbNullChar & vbNullChar
116 .pTo = DBPath & vbNullChar & vbNullChar
120 .fFlags = FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR
End With

124 Ret = SHFileOperation(sh_op)
136 If Ret <> 0 Then

MsgBox "Não foi possível terminar a operação com sucesso!" & vbNewLine & "Confirme o espaço livre em disco.", vbCritical, "Erro"
End If

End Sub


При вызове появляется стандартное окно копирования с летающими папоочками и прогрессом выполнения.

Константы вроде все привел.
Удачи.

Magnus

Блин. Не обртил внимания на предыдущий линк, сорри.

Magnus