Zitat:

Einzelne Zeile an eine Textdatei anfügen Die nachfolgende Prozedur fügt den durch sLine angegebenen Inhalt ans Ende einer Textdatei an. Die Datei wird automatisch erstellt, sollte sie noch nicht existieren. ' Einzelne Zeile an eine Textdatei anhängen ' sFilename: vollständiger Name der Datei ' sLine : Inhalt, der gespeichert werden soll ' =============================================== Public Sub txt_AppendLine(ByVal sFilename As String, _ ByVal sLine As String)   Dim F As Integer   ' Datei zum "Anhängen" von Daten öffnen ' und Textzeile ans Ende anfügen F = FreeFile Open sFilename For Append As #F Print #F, sLine Close #F End Sub

cu luli

Visual Basic ist immer Learning bei Doing. Blo? manchmal braucht man Hilfe.
Mit viel suchen findet man meist den Fehler. (vor allen bei anderen)