Hi all . Could any one show me how i can write the listbox items in to text file ? So far i all know to how to loop the listbox items. I want to the button re write all the listbox each time i press it.Looking forward for reply.Thanks

Code: Select all

Private Sub Command8_Click()
Dim i As Long

For i = 0 To List1.ListCount - 1
    'If List1.Selected(I) = True Then
        'MsgBox List1.Text
        MsgBox List1.List(i)
    'End If
Next
End Sub

You can use this function to add all list items to a txtbox. Each item will be seperated by a comma [ , ]

Code: Select all

Function Lst2Str(List As listbox)
Dim X As Integer
Dim Z As String

    For X = 0 To List.ListCount - 1
        Z = Z & "," & List.List(X)
    Next
    Lst2Str= Z

End Function

In your command button use:

Code: Select all

Text1 = Lst2Str(List1)

Replace "Text1" and "List1" with what ever you need.
That help you any?

Here some gerber for ya.

Here is an application that suitable your needs:
http://www.vbforums.com/showthread.php?t=242778