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")