certo...

prova questo codice
codice:
On Error GoTo ErrSection
Set FileSystemObj = CreateObject("Scripting.FileSystemObject")

Dim i As Integer
Dim NumFile As Integer
Dim NumFile2 As Integer
NumFile = 1

For i = 0 To NumFile - 1            

FileSystemObj.CopyFile "C:\cartella\file.xxx",DestinazioneFinale
.ProgressBar1.Value = .ProgressBar1.Value + (100 / NumFile - 1)

Next i

.ProgressBar1.Value = 0

Exit Sub

ErrSection:
Call MsgErrori("CopyProgression")