Open App.PATH & FileName & "\Vorlagen.txt" For [color=blue]Output[/color] As #ff

  AppPath = App.Path
  If Right(AppPath, 1) <> "\" Then AppPath = AppPath & "\"
  Filename = List1.List(List1.ListIndex)
 
' Rücksprung-Ort zum Wiederholen, wenn Fehler beim Öffnen auftreten
OPENFILE:
 
  ' Programmabruch bei Fehlern aufheben und vorhandene Fehler zurücksetzen
  On Error Resume [color=blue]Next[/color]
 
  ff = FreeFile
 
  ' Datei zum Datenanhängen öffnen, Datei wird ggf. erstellt
  Open AppPath & "Vorlage.txt" [color=BLUE]For[/color] Append _
    [color=blue]As[/color] #ff
 
  ' gab's einen Fehler, dann Meldung
  If Err.Number <> 0 Then
 
    ' Fehlermeldung mit Wiederholen/Abrechen
    If MsgBox( _
      "Die Datei '" & AppPath & "Vorlage.txt" & _
      "' konnte nicht geöffnet werden!" & vbNewLine & vbNewLine & _
      "Fehlernummer: " & CStr( _
      Err.Number) & vbNewLine & "Fehlerbeschreibung: " & CStr( _
      Err.Description), vbExclamation + vbRetryCancel) = vbRetry Then
 
      ' bei Wiederholen, zurück zu OPENFILE springen
      [color=blue]GoTo[/color] OPENFILE
    End If
 
  Else ' wenn keine Fehler beim Öffnen gab, dann geht's hier weiter
 
' Rücksprung-Ort zum Wiederholen, wenn Fehler beim Schreiben auftreten
SAVEDATA:
 
    ' Programmabruch bei Fehlern aufheben und vorhandene Fehler zurücksetzen
    On Error Resume [color=blue]Next[/color]
 
    ' Daten an's Ende der Datei schreiben
    Print #ff, Filename
 
    ' gab's einen Fehler, dann Meldung
    If Err.Number <> 0 Then
 
      ' Fehlermeldung mit Wiederholen/Abrechen
      If MsgBox( _
        "Fehler beim Speichern von '" & AppPath & "Vorlage.txt" & "'!" _
        & vbNewLine & vbNewLine & "Fehlernummer: " & CStr( _
        Err.Number) & vbNewLine & "Fehlerbeschreibung: " & CStr( _
        Err.Description), _
        vbExclamation + vbRetryCancel) = vbRetry Then
 
        ' bei Wiederholen, zurück zu SAVEDATA springen
        [color=blue]GoTo[/color] SAVEDATA
      End If
 
    End If  ' Ende von "If Err.Number <> 0 Then" von PRINT
 
    ' Datei schließen
    Close #ff
 
  End If  [color=green]' Ende von "If Err.Number <> 0 Then" von OPEN

Viel Spass,
R@lf