Save listbox contents to text file

[VBRAZORBACK]

I am trying to take the values in a listbox and save them to a txt file. So far I am getting nowhere.

[VBRAZORBACK]

Sorry, I guess I was in a hurry, the subject should say Listbox as well.

[QVeen72]

Sorry, I guess I was in a hurry, the subject should say Listbox as well.

Hi,
Check this code:

Dim FN As Long
Dim i As Integer
FN = FreeFile
Open "C:\MyText.txt" For Output As FN
For i = 0 To List1.ListCount -1
  Print #FN, List1.List(i)
Next
Close #FN
 
Msgbox "Check File C:\MyText.txt"

Regards
Veena

[Killer42]

Sorry, I guess I was in a hurry, the subject should say Listbox as well.

Gee, the title looks alright to me... ;)

[VBRAZORBACK]

Hi,
Check this code:

Dim FN As Long
Dim i As Integer
FN = FreeFile
Open "C:\MyText.txt" For Output As FN
For i = 0 To List1.ListCount -1
  Print #FN, List1.List(i)
Next
Close #FN
 
Msgbox "Check File C:\MyText.txt"

Regards
Veena

Thanks Veena, that works perfect

[VBRAZORBACK]

Gee, the title looks alright to me... ;)

Just saying 'Nicely Done' isn't possible because it was less then 20 characters, So I am going to ramble a bit.. ...Nicely Done