Textdatei im sequentiellen Modus zum Lesen öffnen und speichern I

FreeFile, Open, Close, LOF, DialogFileOpen
Dim gFileNum As Integer
Private Sub Form_Activate()
Me.txtBenutzer.SetFocus
End Sub
Private Sub mnuOpen_Click()
Me.dlgFileOpen.ShowOpen	Öffnet systemeigenes Öffnen-Dialogfeld.
Me.dlgFileOpen.Tag = Me.dlgFileOpen.FileName
End Sub
Private Sub cmdDelete_Click()	Datei zum Löschen öffnen.
gFileNum = FreeFile()
Open dlgFileOpen.Tag For Output As gFileNum	Datei sequentiell öffnen und ohne Daten schließen.
Close gFileNum
gFileNum = FreeFile()	Leere Datei für das Einlesen in das Textfeld öffnen.
Open dlgFileOpen.Tag For Input As gFileNum	Öffnen der leeren Benutzer.txt zum Einlesen.
Me.txtBenutzerliste = Input(LOF(gFileNum), gFileNum)	Ausgabe des leeren Dateiinhalts in das mehrzeilige
Close gFileNum	Textfeld.
End Sub
Private Sub cmdOK_Click()	1. Datei zum Anhängen von Daten öffnen.
gFileNum = FreeFile()	Nächste freie Dateinummer zuweisen.
Open dlgFileOpen.Tag For Append As gFileNum	Öffnen von Benutzer.txt zum Anhängen von Daten.
Print #gFileNum, Me.txtBenutzer	Inhalt des Textfeldes txtBenutzer an das Ende der Datei
Close gFileNum	anfügen.
gFileNum = FreeFile()	2. Datei für das Einlesen in das Textfeld öffnen.
Open dlgFileOpen.Tag For Input As gFileNum	Öffnen der Benutzer.txt zum Einlesen
Me.txtBenutzerliste = Input(LOF(gFileNum), gFileNum)	Ausgabe des gesamten Dateiinhalts in das mehrzeilige
Close gFileNum	Textfeld.
Me.txtBenutzer = ""
Me.txtBenutzer.SetFocus
End Sub
Private Sub cmdCancel_Click()
Close	Alle mit Open geöffneten Dateien schließen.
Unload Me
End Sub