FileCopy

Function CopyFile(srcFile As String, dstFile As String)

On Error Resume Next
Dim Copy As Long, CopyByteForByte As Byte
Open srcFile For Binary Access Write As #1

'Apre in scrittura il file di destinazione

Open dstFile For Binary Access Read As #2
'Copia sul file destinazione Byte-per-Byte

For Copy = 1 To LOF(2)
Put #1, , CopyByteForByte '
Next Copy
MsgBox "Fine!"
End Function