Saving ListBox information to a file.?

[Joacim Andersson]

If you want to save all the information in a listbox you can use code simular to this:

Dim n As Long
Dim nCount As Long
Dim sFileName As String
Dim hFile As Integer
 
dlg.ShowSave 'use this instead of the Action property which is depricated
sFileName = dlg.FileName
nCount = List1.ListCount - 1
hFile = FreeFile
Open sFileName For Output As #hFile
For n = 0 To nCount
    Print #hFile, List1.List(n)
Next
Close #hFile

Best regards