vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Komplikationen mit Abspeichern unter *.txt (Laufzeitfehler 55) 
Autor: compactdisc
Datum: 16.07.04 12:54
Das Problem ist, dass es den Laufzeitfehler "55" (Datei bereits gelöscht)

Hier der Quellcode:

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")
GoTo io

zu = EOF(kanal)

If zu = False Then
Close #kanal
Close (members.txt)
End If

fehler:

io:
'-------------------------------------------- Hier kommt der Fehler!!
kanal1 = FreeFile

Open "C:\Programme\Microsoft Visual Studio\VB98\members.txt" For Output As #kanal1
weiter:
On Error GoTo weiter
Print #kanal, benutzer
Print #kanal, 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 dabei helfen?

MfG
compactdisc

Hallo

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Komplikationen mit Abspeichern unter *.txt (Laufzeitfehler 5...1.063compactdisc16.07.04 12:54
Re: Komplikationen mit Abspeichern unter *.txt (Laufzeitfehl...774manyki16.07.04 19:10
Re: Komplikationen mit Abspeichern unter *.txt (Laufzeitfehl...707compactdisc16.07.04 21:20
Re: Komplikationen mit Abspeichern unter *.txt (Laufzeitfehl...699compactdisc16.07.04 22:35
Re: Komplikationen mit Abspeichern unter *.txt (Laufzeitfehl...797manyki16.07.04 23:35

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel