text files

[adzzzz]

simple i kno, and ive done it before but have forgot

k.. ive got a text file and im usin my program to write to it, but everytime it writes to it, all the old content is gone! because im using the wrong method, but i dunno whats the right method :s heres what ive got atm:

Dim fso, textfile
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("c:\test.txt") = True Then
Set textfile = fso.OpenTextFile("c:\test.txt", ForWriting)
Else
Set textfile = fso.CreateTextFile("c:\test.txt", True)
End If

help appreciated

[MidgetsBro]

Why are you using FSO? You need to use Appent, not Writing. Why don't you just use Open "File" For Input/Output/Append?

[adzzzz]

what else apart from fso can i use? :> + i just tried it with forappend and not alot happens

[MidgetsBro]

'if the file doesn't exist then create it
If Len(Dir("C:\test.txt")) = 0 Then
  Open "C:\test.txt" For Output as #1
    Print #1, ""
  Close #1
'if the file exists the append to it
Else
  Open "C:\test.txt" For Append As #1
    Print #1, "your data goes here"
  Close #1
End If
 
'read the file back into a variable:
Open "C:\test.txt" For Input As #1
  Dim Buffer As String
  Buffer = Input$(LOF(1), 1)
Close #1
'Buffer now contains the file

[Mc Brain]

You do not need to test if it exists. Append will create the file if it doesn't exist. On the other hand, if it does exist, it will write at the end of it.

Open "C:\test.txt" For Append As #1
    Print #1, "your data goes here"
  Close #1