Help on creating a textfile if nonexistent and writing to it in a loop
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)
txtfile.WriteLine ("Start Log : " & DateTime.Now)