Easy Listbox question......

I'm wanting to write the items in a listbox to a textfile. What's wrong with this line of code. I've been using Listview for so long, I forgot how to use Listbox! ;)

VB Code:

Print #l, lstCategories.Selected

I've already coded the looping part. Is it Lstcategories.index or what?

This should work

VB Code:

If lstCategories.Selected(i) = True Then

Where i is the integer or long you are using to loop through the listbox.

Here's what I'm using. It is in a module so it can be accessed by more than one form.

VB Code:

Public Sub WriteTextFile()
'Save the listbox entries to a text file
    Dim l As Integer
    Dim m As Integer
    'get the next free file
    l = FreeFile
    Open "C:\Windows\System\categories.kmo" For Output As #l
    
    'start the loop
    For m = 1 To categories.lstCategories.ListCount
        'add to the file every line from the listbox
        Print #l, categories.lstCategories.Selected(m)
    
        
    Next m
    
    Close #l
    End sub

this works for me

VB Code:

For x = 1 To ListView1.ListItems.Count
    MsgBox ListView1.ListItems(x).Selected
Next

oops, my bad

VB Code:

Private Sub Command1_Click()
For x = 0 To List1.ListCount - 1
    MsgBox List1.Selected(x)
Next
End Sub

go from 0 to listcount-1

You said you were going to be using this on multiple forms, for I added a couple of parameters. Regardless, this works.

VB Code:

Public Sub WriteTextFile(MyForm As Form, LB As ListBox)
'Save the listbox entries to a text file
    Dim l As Integer
    Dim m As Integer
    'get the next free file
    l = FreeFile
    Open "C:\Windows\System\categories.kmo" For Append As #l
    
    'start the loop
    For m = MyForm.LB.ListCount - 1 To 0 Step -1
        'add to the file every line from the listbox
        Print #l, MyForm.LB.List(m)
    Next m
    Close #l
End Sub