^text in vb

Ein einfachte Textdatei schreiben:

Code:

private sub test()

    on error goto testError

    Dim iFile as integer    'Für die Dateinummer

    iFile=Freefile    'Nächste freie Dateinummer holen

    Open "c:\temp\muell.txt" for output as #ifile  
    'Datei zum schreiben öffnen (überschreibt vorhandene Datei)
    'Alternativ: 
    'Open "c:\temp\muell.txt" for append as #ifile 
    'Öffnet eine vorhandene Datei und fügt Zeile hinzu (unten). Wenn die
    'Datei nicht existiert wird sie erstellt.

    Print iFile, "Hallo!"   'Eine Zeile schreiben
    Print iFile, "Zeile zwei" 'noch eine Zeile schreiben

    close #ifile    'Datei schliessen

    'feddich is
    exit sub

testError:

    'und er hat doch nen Syntaxfehler gemacht... ;)
    Msgbox "Fehler " & err.number & ": " & err.description, vbcritical or vbokonly

end sub

MfG DaPsychoJ

 

danke dir

 

Kein Problem!

Ich hoffe mal das klappt. Konnte es mangels VB6 nicht testen...

MfG DaPsychoJ