Dim Datei As String
        Dim DateiNr As Integer
        Dim i As Integer
 
        Datei = MMI.SettingsDIR & "\Fehler.txt"
        DateiNr = FreeFile()
 
        FileOpen(DateiNr, Datei, OpenMode.Output)
 
        For i = 0 To MMI.Fehlerliste.Count - 1
            Write(DateiNr, MMI.Fehlerliste.Item(i))
 
        Next

mfg
rt