[RESOLVED] Saving FileListBox

[AceOfSpades]

Can anyone give me the code to save the contents of a FileListBox as a text file, thanx.

Pretty sure there must be a loop somewhere, anyway, any help is appreciated.

[Andrew G]

Dim FF As Integer
Dim Itm As Integer
 
FF = FreeFile()
 
Open App.Path & "\My Text File.txt" For Output As #FF
    For Itm = 0 To File1.ListCount - 1
        Print #FF, File1.List(Itm)
    Next
Close #FF

[AceOfSpades]

...i stand corrected, thanx mate!