Saving selected items from a listbox to a text file

[SimonPearce]

Hi folks,

I can use the following code to save the entire contents of a listbox to a text file, but I can't work out how to just save the selected items (I have multiselect set to 2).

Any ideas?

Simon

Dim file As String
file = "temp.dat"

On Error Resume Next
Open file For Output As #1
For i = 0 To lstWorkstations.ListCount - 1
a$ = lstWorkstations.List(i)
Print #1, a$
Next
Close #1

[MartinLiss]

Change the loop to

For i = 0 To lstWorkstations.ListCount - 1
If lstWorkstations.Selected(i) Then
a$ = lstWorkstations.List(i)
Print #1, a$
End If
Next

[SimonPearce]

Thanks Martin - that did the job.

I was trying If lstworkstations.selected(i) = true

Sorted anyway.

Cheers

Simon