Tipp 1.23 - Textdatei erweitern

Wie kann ich eine Textdatei erweitern?

Mit dieser Funktion können Sie eine Textdatei erweitern. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function AppendToTextFile( _
                ByVal sFilePath As String, _
                ByVal sBuffer As String) _
                As Long
  '// -----------------------------------------------------
  '// Methode:   | Erweitert einen Dateinhalt; existiert
  '//            | die Datei nicht, wird sie angelegt
  '// -----------------------------------------------------
  '// Parameter: | sFilePath = gültigen Dateipfad
  '//            | sBuffer = Daten, die angehängt werden
  '//            |           sollen
  '// -----------------------------------------------------
  '// Rückgabe:  | Fehlernummer (0=kein Fehler aufgetreten)
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  On Error GoTo Err_AppendToTextFile
 
  Dim iFile As Integer
  iFile = VBA.FreeFile
  Open sFilePath For Append As iFile
  Print #iFile, sBuffer
  Close #iFile
 
Exit_AppendToTextFile:
  AppendToTextFile = Err.Number
  On Error GoTo 0
  Exit Function
 
Err_AppendToTextFile:
  Resume Exit_AppendToTextFile
 
End Function


Zurück Tipp 1.22 - Textdatei auslesen | Inhalt | Tipp 1.24 - UNC-Dateipfad ermitteln Weiter