write to text file continuously

[Trazz]

Hi, I am trying to read the serial number after reading from my device and write it to a txt file. But i can only write the last device serial number to the text file only. How do i write the text file continuously? What i am getting now is only SBBBB. SAAAA is overwritten. Please help me. Thank you

Eg, (write to the text file)
SAAAA
SBBBB

Set fs = CreateObject("Scripting.FileSystemObject")
         Set f = fs.CreateTextFile("c:\Write_FIB\PASS.txt", True)
          f.WriteLine (txtSerialNo.Text)
          f.Close

[Phil Weber]

CreateTextFile creates a new, empty file each time you call it. You need to use the OpenTextFile method instead:

Const fsoForAppending = 8
Set f = fs.OpenTextFile("c:\Write_FIB\PASS.txt", fsoForAppending, True)

For more information, see http://www.4guysfromrolla.com/webtec...ect/faq3.shtml .