---

Hello,

I use a FileList-box and want to write the content of this box to a
text-file. I assume this is possible, but how????

First open a file for output
Then using a loop-statement to read alle the entries of the FileListBox
Finally close the output-file

What is the code for the "loop-part"?


Thanks for helping me.

Sjoerd

svo@home.nl

---

Assumening your file-box is named: "file1".

Add a command-button: "command1"

Paste:
'----------------------------------------------------------
Private Sub Command1_Click()

Dim fso As Object
Dim oFile As Object
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile = fso.CreateTextFile("c:\out.txt", True) 'True = overwrite

'Loop-part
For i = 0 To File1.ListCount - 1
oFile.WriteLine File1.List(i)
Next i

oFile.Close

End Sub

'----------------------------------------------------------