Browse a Folder and Populate Listbox with Folder Items

[bigJD]

@ snb it doesnt work either.

[snb]

What is 'it' ?

[VBA]Private Sub Listbox1_Change()

If Listbox1.ListIndex > -1 Then Textbox1.Value =CreateObject("Scripting.FileSystemObject").OpenTextFile(Listbox1.Value).Re adAll

End Sub[/VBA]