Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Sack und Pendel Laufzeitfehler "55"
Autor: compactdisc
Datum: 16.07.04 21:43
Dim benutzer As Variant Dim passwort As Variant Dim passwortzwei As Variant Dim kanal As Integer Dim nicknam As Variant Dim pass As Variant Dim geschlossen As Boolean Dim email As Variant Dim kanal1 As Integer Dim kanal2 As Integer Dim zu As Boolean Private Sub Command1_Click() benutzer = Text1.Text passwort = Text2.Text passwortzwei = Text3.Text email = Text4.Text If email = "" Then MsgBox ("Geben Sie bitte eine E-mail Adresse ein") End If If passwort <> passwortzwei Then MsgBox ("Passwort nicht richtig bestätigt!") End If If benutzer = "" Then MsgBox ("Geben Sie bitte gültige Angaben an!") End If If passwort = "" Then MsgBox ("Geben Sie bitte gültige Angaben an!") End If '------------------------------------------------ kanal = FreeFile Open "C:\Programme\Microsoft Visual Studio\VB98\members.txt" For Input As #kanal While Not EOF(kanal) On Error GoTo fehler Line Input #kanal, nicknam Line Input #kanal, pass List1.AddItem (nicknam) List1.AddItem (pass) Wend Close #kanal Close ("C:\Programme\Microsoft Visual Studio\VB98\members.txt") zu = EOF(kanal) If zu = False Then Close #kanal Close ("C:\Programme\Microsoft Visual Studio\VB98\members.txt") End If fehler: '-------------------------------------------- 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") '----------------------------------------------- kanal2 = FreeFile Open "C:\mitglieder-mail.txt" For Append As #kanal2 Print #kanal2, email Close #kanal2 geschlossen = EOF(kanal) If geschlossen = False Then Close #kanal End If '-------------------------------------------- End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() kanal = FreeFile End Sub Wer kann mir helfen? Ich hoffe ich gehe mit diesem Problem euch nicht auf die Neven, sonst sagt ihr's einfach, ok? MfG compactdisc Hallo

Sack und Pendel Laufzeitfehler "55"	874	compactdisc	16.07.04 21:43
Re: Sack und Pendel Laufzeitfehler "55"	627	Elwood	16.07.04 22:51
Re: Sack und Pendel Laufzeitfehler "55"	597	compactdisc	17.07.04 08:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen