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)


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

End If

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

End Function