Recording files

[domt]

I have a list box (List3) with several items in it.
I want to store them in a text file on my C drive.
The following does not work.

fnum = FreeFile()
Open "C:\Stores.txt" For Output As #fnum
For Ct1 = 0 To List3.ListCount - 1
Write #fnum, List3.List(Ct1)
Next
Close fnum

Can anyone tell me what's wrong?
Any help will be appreciated.

Doug

 

[RiverGuy]

Are you sure you are using a ListBox? ListCount is not a property of the .Net ListBox control. Maybe that's your issue. Anyways, here's some code to write your file:

        Dim s As String = ""
        For i As Integer = 0 To List3.Items.Count - 1
            s &= List3.Items(i).ToString & ControlChars.CrLf
        Next
        System.IO.File.WriteAllText("C:\Stores.txt", s)

 

[domt]

RiverGuy
Thanks for your response.
I'm sorry that I forgot to say that I'm using VB6,
not VB .net
Have you got a fix for that?
Doug

 

[RiverGuy]

You'll have to post this in the VB6 forum.

 

[gmmastros]

I tried that code, and it works for me.

I also noticed that it puts quotes around the data, with each list item on a separate row. If you want to remove the quotes....

fnum = FreeFile()
Open "C:\Stores.txt" For Output As #fnum
For Ct1 = 0 To List3.ListCount - 1
  [!]Print[/!] #fnum, List3.List(Ct1)
Next
Close fnum

-George

"The great things about standards is that there are so many to choose from." - Fortune Cookie Wisdom

 

[domt]

Thank you gmmastros
I don't know why, but it does not work for me.
Either using "Write" or "Print"
Doug