|
Hallo,
Beim lesen in den String bringt er mir bei meiner Testdatei falsche Ergebnisse. Im String steht schon nach dem 4. Zeichen nicht mehr das drin was in der Datei steht. Ich vermute mal, dass es ein Problem beim Textstream ist.
Ich würde das ganze binär lesen und schreiben, z. B. so:
Dim s() As Byte
Dim ff As Integer
ff = FreeFile
Open Datei1 For Binary Access Read As #ff
ReDim s(0 To LOF(ff))
Get #ff, , s
Close #ff
Damit bekommst Du ein Byte-Array, das Du dann wieder schreiben kannst:
Sub WriteToFile(Datei As String, s() As Byte)
Dim ff As Integer
ff = FreeFile
Open Datei For Binary Access Write As #ff
Put #ff, , s
Close #ff
End Sub
Gruß
Michael
|