Using common dialog to display items in listbox

I'm using a COMDLG32.DLL to open a dialog control.

What I'm trying to do is for the user to select a path/location. Then once I retrieve the path get all the file names in that path with *.txt into a listbox?

Is this possible?

something like this will loop thru each file in a folder and check if the extension is .txt. If it is the file name is added to the listbox.


Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Scripting.Folder
Dim objFile As File

Set objFSO = New FileSystemObject
Set objFolder = objFSO.GetFolder(sFolderSpec)

For Each objFile In objFolder.Files
If objFSO.GetExtensionName(objFile.Name) = "txt" Then
Call ListBox1.AddItem(objFile.Name)
End If
Next objFile

Set objFolder = Nothing
Set objFSO = Nothing


hope this helps

Thanks, I'll give it a shot.