title image


Smiley Binary Write Datei Kopie - Dateigröße richtig ab Datei inkorrekt
Hallo zusammen,

Also es geht darum das Ich versuchte eine Datei per Binary Read & Binary Write zu kopieren. Die Datei wurde richtig kopiert und auch die Dateigröße in Bytes wird richtig angezeigt. Wenn Ich dann allerdings versuche das ZIP Archiv zu öffnen kommt eine Fehlermeldung, obwohl bei dem Original keine kommt. Weiß jemand wo der Fehler liegt?















 











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











 












Mit freundlichen Grüßen
Stephan Muller

http://www.muweb.net | service@muweb.net


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: