---

Hallo VB'ler
ich möchte einige Einträge in eine Textdatei machen und habe in den verschiedenen Foren gesucht. Dabei habe ich folgenden Code gefunden:

Dim F As Integer
Dim strFilename As String
Dim strLine As String

F = FreeFile
Open strFilename For Append As #F
Print #F, strLine
Close #F
End Sub

Das funktioniert auch wunderbar, nur dass der schon bestehende Inhalt der Textdatei jedes Mal überschrieben wird. Ich möchte aber jeweils eine weitere Zeile anhängen.
Weiss jemand Bescheid?

Gruss
san

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hier ein Auszug aus einem kleinen Koordinatentool.

Code:

---

    Dim TextObjekt, TextDatei

    Set TextObjekt = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set TextDatei = TextObjekt.CreateTextFile("C:/Temp/Test.txt", True)
    If Err Then Exit Sub
       
    For i = 0 To AbsteckAnzahl
   
        TextDatei.WriteLine ("Das ist Zeile ") & i
   
    next i
   
    TextDatei.Close
    Set TextObjekt = Nothing

---

------------------
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Etwas habe ich vergessen, in deinem Fall brauchst du eigentlich die Funktion OpenTextFile und nicht CreateTextFile.
Oder aber du schaust zuerst ob das File vorhanden ist mit:

Code:

---

Set TextDatei = TextObjekt.CreateTextFile("C:\Temp\Test.txt", False)

---

Wenn ein Fehler auftritt, dann gibt es das das file schon, dann einfach das File öffnen und bearbeiten.
Alles andere findest du in der VBA-Hilfe.

------------------
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Roland, habe es zwar mittlerweile anders gelöst, für die Bemühung gibt es aber trotzdem U's.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn man an eine bestehende Datei etwas anhängen möchte muss man folgenden Syntax beim Öffnen verwenden:

    Set File_9 = FS.CreateTextFile(File_9_Name, ForAppending)

ForAppending ist das Schlüsselwort

For Writing oder keine Angabe erstellt die Datei

MfG

Wolfgang

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry habe eine Zeile Vergessen

ForAppending = 8

Der Wert den VBS verwendet ist ", 8". Zur bessern Lesbarkeit hatte
man aber diese Variable benutzt
Alternativ:    Set File_9 = FS.OpenTextFile(File_9_Name, 8)

MfG

Wolfgang

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP