kanal1 = FreeFile 
 
On Error GoTo weiter 
 
' Hier der Fehler, die Datei members.txt ist angeblich noch offen, ist sie aber 
' nicht!! 
' Aber ich will ihn nur in einem anderen Modus öffnen?!? 
 
Open "C:\Programme\Microsoft Visual Studio\VB98\members.txt" For Output As _
  #kanal1 
weiter: 
On Error GoTo weiter 
Print #kanal1, benutzer 
Print #kanal1, passwort 
List1.AddItem (benutzer) 
List1.AddItem (passwort) 
Close #kanal1 
Close ("C:\Programme\Microsoft Visual Studio\VB98\members.txt")

kanal1 = FreeFile 
 
On Error GoTo Fehler_Open 
 
' Hier der Fehler, die Datei members.txt ist angeblich noch offen, ist sie aber 
' nicht!! 
' Aber ich will ihn nur in einem anderen Modus öffnen?!? 
 
Open "C:\Programme\Microsoft Visual Studio\VB98\members.txt" For Output As _
  #kanal1 
 
On Error GoTo Fehler_Print 
Print #kanal1, benutzer 
Print #kanal1, passwort 
List1.AddItem (benutzer) 
List1.AddItem (passwort)
Close #kanal1 
exit Sub
 
Fehler_Open:
MsgBox "Es ist ein Fehler beim Öffnen der Datei members.txt aufgetreten!"
exit sub
Fehler_Print:
MsgBox "Es ist ein Fehler beim Schreiben (Print) in die Datei members.txt" & _
  "aufgetreten!"
exit sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell