[vb6] copia di file...non riesce

[Jupy64]

Ciao, ci sono diversi modi, uno dei quali è questo:

Private Sub CopiaFile()
   Dim byteTotali As Long
   Dim byteDati As String
   Dim readByte As Long
   Open App.Path & "\copia.gif" For Binary As #2
   Open App.Path & "\originale.gif" For Binary As #1
   byteTotali = LOF(1)
   readByte = 512
   Do While byteTotali > 0
      If byteTotali < readByte Then
         readByte = byteTotali
      End If
      byteDati = Input(readByte, #1)
      Put #2, , byteDati
      byteTotali = byteTotali - readByte
   Loop
   Close #1
   Close #2
End Sub