Textdatei im sequentiellen Modus zum Lesen öffnen und speichern II

Statusleiste, CommonDialog, DataChanged, Freefile, Open, Close, LOF
Private Dateiname As String
Private Sub Form_Load()
cdlDatei.Filter = "Textdatei|*.txt|Alle Dateien|*.*"	Dateien per CommonDialog öffnen.
End Sub
Private Sub Form_Resize()
txtTextfeld.Width = Me.ScaleWidth	TextBox hat stets die Breite / Höhe wie das Formular.
txtTextfeld.Height = Me.ScaleHeight
End Sub
Private Sub mnuNeu_Click()	Menü: Neue Datei erzeugen.
Dim Antwort As Long
If txtTextfeld.DataChanged = True Then	Bei Änderungen in TextBox wird eine Abfrage angezeigt.
Antwort = MsgBox(Prompt:="Möchten Sie den Inhalt des Textfensters speichern?", _
Buttons:=vbYesNo + vbQuestion, Title:="Daten wurden geändert")
If Antwort = vbYes Then
DateiSpeichern Dateiname	Alten Text speichern.
End If
End If
txtTextfeld.Text = ""	TextBox entladen.
End Sub
Private Sub mnuÖffnen_Click()	Menü: Datei öffnen.
Dim DateiNr As Integer
cdlDatei.DialogTitle = "Wählen Sie die zu öffnende Textdatei"
cdlDatei.ShowOpen
DateiNr = FreeFile
Dateiname = cdlDatei.FileName
Open Dateiname For Input As DateiNr	TextDatei wird für sequentiellen Lesezugriff geöffnet.
txtTextfeld.Text = Input(LOF(DateiNr), DateiNr)
Close
txtTextfeld.DataChanged = False
staStatus.Panels("Dateiname").Text = Dateiname	Ausgabe von Pfad, Dateiname und -größe in Statusleiste.
staStatus.Panels("Dateigröße").Text = FileLen(Dateiname) & " Bytes"
End Sub
Private Sub mnuSpeichern_Click()	Menü: Datei speichern.
cdlDatei.DialogTitle = "Wählen Sie den Namen der zu speichernden Textdatei"
cdlDatei.ShowOpen
Dateiname = cdlDatei.FileName
DateiSpeichern Dateiname
End Sub
Sub DateiSpeichern(tmpName As String)
Dim DateiNr As Integer
DateiNr = FreeFile
Open Dateiname For Output As DateiNr	TextDatei wird für sequentiellen Schreibzugriff geöffnet.
Print #DateiNr, txtTextfeld.Text
Close
txtTextfeld.DataChanged = False
Exit Sub
End Sub
Eigenschaften der Statusleisten für Anzeige des Pfades / Dateinames, sowie der Dateigröße.
	.