saving list box to file?!

[anonymous]

[Originally posted by S]

hi all - anyone got any idea of how to save the contents of a list box to a text file?! all help appreciated - thanks in advance - S

[anonymous]

[Originally posted by Jon Patrick Ong]

Dim i As Integer
Dim myfile As String

Private Sub Command1_Click()

myfile = "C:\My Documents\list.txt"

Open myfile For Output As #1
ÿ For i = 0 To List1.ListCount - 1
ÿ ÿ List1.ListIndex = i
ÿ ÿ Print #1, List1.Text
ÿ Next i
Close #1

End Sub