by Marcel Wijnands (3 Submissions)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (3 Votes)
Save /Write contents of a listbox to a textfile
Inputs
output filename and listbox name
Assumes
Usage:
ListBox2File "c:\yourfile.txt", ListBox1
Public Sub ListBox2File(sFile As String, oList As ListBox)
Dim fnum, x As Integer
Dim sTemp As String
fnum = FreeFile()
x = 0
Open sFile For Output As fnum
While x <> oList.ListCount
Print #fnum, oList.List(x)
x = x + 1
Wend
Close fnum
End Sub
'Check out http://www.vb2delphi.com for more code!