[VB6]Datein Schreiben/Lesen

In 10 Minuten startet der nächtliche Backupvorgang! Es kann währenddessen (ca. 10 Minuten) zu Einschränkungen bei der Nutzung des Forums kommen
Weitere Infos findet ihr im Thema Backup des Forums

    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