Datei Schließen

[Mister master]

Hi!

Die Suchfunktion hat nichts ergeben, darum frag ich euch:

Wenn ich eine .txt Datei laden will geht das ja noch gut. Will ich aber gleich darauf wieder speichern, dann sagt er, dass die Datei schon offen ist. Wie kann ich die Datei nach dem Öffnen und speichern wieder schließen? Mein Code ist bis jetzt:

Dim text As String

Private Sub Command1_Click()
Open "C:\game\kobold.txt" For Output As #1
Print #1, Text1.text
Close #1
End Sub

Private Sub Command2_Click()
Open "C:\game\kobold.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, text
Text1.text = Text1.text & vbNewLine & text
Loop
End Sub

Und ein zweites Problem ist: Wenn ich die Datei lade, dann sind statt den ersten beiden Buchstaben solche || Striche. Habe ich was falsch gemacht?

 

[ojamaney]

"Close #1" schliesst die Datei. Das musst Du auch nach der Schleife machen.

Noch besser ist es wenn Du anstatt "#1" folgendes verwendest:

Dim FF As Integer
FF = FreeFile

Open "Dateiname" For Input As FF

...usw

Close FF