Skriva till textfil

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

GeinMedlem sedan sep. 20005 700 inlägg

Frågan30 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.

------------------
"When there's no more room in hell,
the dead will walk the earth."
---------------------
http://shortenings.cjb.net

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 :/

------------------
"When there's no more room in hell,
the dead will walk the earth."
---------------------
http://shortenings.cjb.net

SicoMedlem sedan maj 20002 597 inlägg

30 dec. 2001 19:41#4

funkar utmärk för mig

------------------
Regler är till för att ändras, inte för att följas!
I wouldn't if I couldn't