DerStauner
Erfahrenes Mitglied
Hi,
ich habe diesen Code hier:
Und jetzt wenn ich fsostream.ReadLine schreibe, dann bekomme ich eine Fehlermeldung, weil die Fileposition schon am Ende ist. Und ich möchte es auf die Startposition setzen. Aber wie? Ich habe nachgegoogelt, fand nichts Nützliches.
Der Beitrag ist nicht mehr gültig. Es funktioniert. Irgendwas habe ich wahrscheinlich versehen.
ich habe diesen Code hier:
Code:
Dim fsostream As TextStream
Dim f As File
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(App.Path & "\system32.ini") Then
Set f = fso.GetFile(App.Path & "\system32.ini")
Set fsostream = f.OpenAsTextStream(ForReading)
Else
Set fsostream = fso.CreateTextFile(App.Path & "\system32.ini", True)
fsostream.WriteLine ("0")
fsostream.WriteLine ("False")
End IfUnd jetzt wenn ich fsostream.ReadLine schreibe, dann bekomme ich eine Fehlermeldung, weil die Fileposition schon am Ende ist. Und ich möchte es auf die Startposition setzen. Aber wie? Ich habe nachgegoogelt, fand nichts Nützliches.
Der Beitrag ist nicht mehr gültig. Es funktioniert. Irgendwas habe ich wahrscheinlich versehen.
Zuletzt bearbeitet:
