[RESOLVED] list box to .txt file

[om-yousif]

hi

how can i copy all contents of a list box to .txt file

i need to save each list item in new line
so it will be as a list in .txt file

[gavio]

Dim N As Long
Dim ff As Integer: ff = FreeFile
    Open "c:\test.txt" For Output As #ff
        For N = 0 To List1.ListCount - 1
            Print #ff, List1.List(N)
        Next N
    Close #ff

[om-yousif]

thanks

[gavio]

You're welcome