Voce pode usar esta rotina que copia um arquivo. Como é um loop voce pode fazer o que quizer dentro dela, ate colocar uma barra de progresso e etc
Passe o arquivo origem e destino para a rotina
Function CopyFile(srcFile As String, dstFile As String)
On Error Resume Next 'If we Get an error, keep going
Dim Copy As Long, CopyByteForByte As Byte 'the variables
Open srcFile For Binary Access Write As #1 'open the destination file so we can write To it
Open dstFile For Binary Access Read As #2 'open the source file so we can read from it
For Copy = 1 To LOF(2) ' Copia Byte a Byte
Put #1, , CopyByteForByte
Next Copy
MsgBox "Termino "
End Function
