Help on creating a textfile if nonexistent and writing to it in a loop

[draven2kg]

I am having some trouble in writing to a file when a function that is called in a loop multiple times. I am thinking its because it is creating the file all the time and only writing the last data in the loop. Can anyone help me out. How do u uses FileExists method to check if the file exists. I want to write myvalue to a textfile everytime it is called in a loop.






Public Function (myvalue as double) as variant



Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("C:\testfile.txt") Then

Set txtfile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)


Else

Set txtfile = fso.CreateTextFile("C:\testfile.txt", True)


End If



txtfile.WriteLine (myserverlink)
txtfile.WriteLine ("Start Log : " & DateTime.Now)



End Function

[Phil Weber]

Try using ForAppending, rather than ForWriting, as the second parameter of your OpenTextFile call.

[draven2kg]

Thankx fill. ForAppending fix the job. I appreciate it