• Home
 · 
• Files/File Controls/Input/Output
 · 
• Save / Write contents of a listbox to a textfile

Save / Write contents of a listbox to a textfile

Save /Write contents of a listbox to a textfile

Inputs
output filename and listbox name

Assumes
Usage: ListBox2File "c:\yourfile.txt", ListBox1

Rate Save / Write contents of a listbox to a textfile

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

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!