[VB6]Datein Schreiben/Lesen

Hi,

Ich zeige euch heute mal wie ihr mit VB6 Datein schreiben / lesen könnt.

Erfolgreich getestet mit: VB6, VBA

Also Zunächst einmal hier der Code:

Wir Schreiben eine Datei, wenn mann auf den Button Speichern Drückt

Private Sub cmdSpeichern_Click()
Dim FNr As Integer
Dim strText As String
strText = "Dein Text"
On Error GoTo Fehler
FNr = FreeFile
Open App.Path & "Hallo.txt" For Output As #FNr 'App.Path gibt dir dass Aktuelle Verzeichniss wo sich dass Programm befindet P.S. Open öffnet die Datei
Write #FNr, strText 'Schreibt den String strText in die Datei
Close 'Schließt die Datei.
Fehler:
End Sub

So jetzt einmal eine Datei Lesen!

Private Sub cmdLesen_Click()
Dim FNr As Integer
Dim strText As String
On Error GoTo Fehler
FNr = FreeFile
Open App.Path & "Hallo.txt" For Input As #FNr
Input #FNr, strDaten
Close
Fehler:
MsgBox strDaten ,vbExclamation, strDaten
End Sub

Dieses Tutorial ist noch ungetestet!
Es könnte zu Fehlern kommen.

Ich helfe gerne via Icq und via TeamViewer

Flip