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


DevX Home    Today's Headlines   Articles Archive   Tip Bank   Forums   

Results 1 to 3 of 3

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

  1. #1
    Join Date
    Aug 2005
    Posts
    12

    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)


    Else

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


    End If



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



    End Function

  2. #2
    Join Date
    Nov 2003
    Location
    Portland, OR
    Posts
    8,387
    Try using ForAppending, rather than ForWriting, as the second parameter of your OpenTextFile call.
    Phil Weber
    http://www.philweber.com

    Please post questions to the forums, where others may benefit.
    I do not offer free assistance by e-mail. Thank you!

  3. #3
    Join Date
    Aug 2005
    Posts
    12
    Thankx fill. ForAppending fix the job. I appreciate it

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center
 
 
FAQ
Latest Articles
Java
.NET
XML
Database
Enterprise
Questions? Contact us.
C++
Web Development
Wireless
Latest Tips
Open Source


   Development Centers

   -- Android Development Center
   -- Cloud Development Project Center
   -- HTML5 Development Center
   -- Windows Mobile Development Center