Textfil

Hej

Jag har en text fil som ska innehålla ett antal rader. Problemet ligger i att varje gång jag försöker skriva i textfilen skriver den nya raden över den gamla. Vad gör jag för fel

Set readfile = Foldersys.OpenTextFile("error_log_Restart.txt", 2, false)

readfile.Writeline ("Error No: " & Number & " - " & descr & " has occurred")
err.clear

Du kanske måste läsa in det gamla från filen och sedan skriva allt till textfilen igen plus det nya...?

Halv löst

Hej
felet låg i appaend
Set readfile = Foldersys.OpenTextFile("error_log_Restart.txt", 8, false)

men nu har jag ett annat fel och det är att det inte blir på en ny rad.

Då kan du ju köra en fuling:

readfile.Writeline (vbCrlf & "Error No: " & Number & " - " & descr & " has occurred")

För att få ett radbyte i början.

Tack

Tackar.. Det fungerar helt underbart.

Då får du gärna markera inlägget som löste problemet ("Acceptera som slutgiltigt svar").