CopyProgressBar2

Function CopiaFile(origine As String, destinazione As String) As Long
Const BufferSize = 1024 'settaggio del buffer
Static Buf$
Dim BTest!, FSize!
Dim Chunk%, F1%, F2%
LunghezzaFileDestinazione = 0
Open origine For Binary As #1 ' Apre il file.
Flunghezza = LOF(1) ' Ottiene la lunghezza del file.
Open destinazione For Binary As #2 ' Apre il file.
BTest = Flunghezza - LOF(2)
Do
If BTest < BufferSize Then
Chunk = BTest
Else
Chunk = BufferSize
End If
Buf = String(Chunk, " ")
Get 1, , Buf
Put 2, , Buf
BTest = Flunghezza - LOF(2)
Loop Until BTest = 0
Close 1 'closes the source file
Close 2 'closes the destination file
End Function

in questo modo e' sufficiente richiamare tale funzione in questo modo

e=copiafile(nomefilediroigine,nomefiledidestinazione)
e il gioco e' fatto.
Faccio notare che e' possibile facilmente modificarlo ad esempio
aggiungendo una barra di scorrimento; unico accorgimento non esagerare
con la dimensione del buffer.