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)
Try using ForAppending, rather than ForWriting, as the second parameter of your OpenTextFile call.
Please post questions to the forums, where others may benefit.
I do not offer free assistance by e-mail. Thank you!
Thankx fill. ForAppending fix the job. I appreciate it
-- Android Development Center
-- Cloud Development Project Center
-- HTML5 Development Center
-- Windows Mobile Development Center