Open a text file and edit line items
With the file system object, you can't read and write at the same time. So if you want to edit the content of each line in a text file, it's a little tricky, because you first read the current content into a variable, then you write that variable to the same file.
In this example, the goal is to stick a "," at the end of each line.
STEP 1 -- read the data
Dim mydata, f
Set f = fso.OpenTextFile(newfile)
Do Until f.AtEndOfStream
mydata=mydata&rtrim(f.ReadLine) & "," & vbcrlf
STEP 2 -- write the data (this will overwrite whatever was previously in the file)/
Set f = fso.OpenTextFile(newfile, 2, true)