[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