Sub extract()
Dim code() As Byte
Open "Test.dat" For Random As #1
Open "NewFile.dat" For Random As #2
Seek #1, LOF(1) - 7168
Get #1, , code
Write #2, code
Close #1
Close #2
End Sub
Abend zusammen :)
Also das VBA-Sub oben soll also Datei Test.dat öffnen und die letzten 7168 bytes (wirklich bytes, also nichts mit Strings...) in eine zweite Datei NewFile.dat schreiben. Blöderweise macht er das nicht. Ich habe zwar schon etwas Programmiererfahrung, aber mit Makros in VBA bin ich noch nicht so lange...
Bei -Write #2, code bekomme ich einen Laufzeitfehler "Lufzeitfehler '54' - Falscher Dateimodus". Alle anderen Modi die ich kenne (und für Binär bleiben ja soweit ich weiß eh nur binary und random) funktionieren leider auch nicht, also was mache ich falsch ???
|