title image


Smiley Re: Binary Write Datei Kopie - Dateigröße richtig ab Datei inkorrekt
Nim einfach a(i)













 











Private Sub Form_Load()Dim aa, z, iaa = FileLen(App.Path & "\crypt.zip")ReDim a(1 To aa) As ByteOpen App.Path & "\crypt.zip" For Binary As #1i = 1Do While z < aa    Get #1, , a(z)    z = z + 1    i = i + 1    DoEventsLoopClose #1Open App.Path & "\crypt2.zip" For Binary Access Write As #1For i = 1 To aa    Put #1, , a(i)NextClose #1End Sub











 

















mfg
Andreas Diem


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: