save list box values into a log file

[SamNeo]

I have problem with saving the results that appear in a list box into a log file and saving the file to disk. Can any one tell me how to do it.

 

[ntp]

Run this procedure:

Private Sub CreateLogFile()
Dim fs as Object
Dim a as Object
Set fs = CreateObject("Scripting.FileSystemObject&quot
Set a = fs.CreateTextFile("c:\testfile.txt", True)
For index = 0 to list0.ListCount-1
a.writeline(list0.itemdata(index))
Next index
a.Close
End Sub

This assumes that the bound column of your list box isthe field you want to output.

ntp