Skriva till textfil

3 svar · 250 visningar · startad av Gein 30 dec. 2001

GeinMedlem sedan sep. 20005 700 inlägg

Trådstart30 dec. 2001 16:09#1

Hur gör jag för att skriva till en fil, men inte skriva över befintlig text, jag vill fortsätta i slutet. Text-filen ska funka som en log-fil.

Cy-4Medlem sedan maj 200180 inlägg

30 dec. 2001 16:18#2

Hallå!

Prova med detta:

Dim FSO, txt_fil, strTxtPath
strTxtPath = "sökvägen till filen"
set FSO = CreateObject("Scripting.FileSystemObject")
'## Kollar om textfilen exsiterar, gör den inte det så skapas den ##
If FSO.FileExists(strTxtPath) = False Then
Set txt_fil = FSO.CreateTextFile(strTxtPath, 8)
Else
Set txt_fil = FSO.OpenTextFile(strTxtPath, 8)
End If

'## Skriver in all info i textfilen ##
txt_fil.WriteLine "Text att lägga till"

'## Stänget textfilen ##
txt_fil.Close

Du kan naturligtvis lägga till hur många txt_fil.WriteLine som du vill.

[Redigerat av Cy-4 den 30 dec 2001]

puzzeMedlem sedan sep. 20005 700 inlägg

30 dec. 2001 17:30#3

den skriver över det gamla :/

SicoMedlem sedan maj 20002 597 inlägg

30 dec. 2001 19:41#4

funkar utmärk för mig