FileSearch or file picker

[Hap]

I am writing a program that needs to be compatible with xl2000. I would like to either return all the files with a particular extension in a give path or be able to use a dialog to search for a particular file. What I would like returned is the filename and path rather than opening directly in Excel. Am I going to have to write my own search? I'm assuming there is a windows api that I can make use of. The files are not necessarily excel files.

Thanks for any help.

 

[Hap]

How about this. How would I populate a listbox with all the files in a particular folder of a given file extension?

 

[VoG]

An example

Sub a()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "M:\Stuff"
MyFile = Dir(MyFolder & "\*.xlsx")
Do While MyFile <> ""
    UserForm1.ListBox1.AddItem MyFile
    MyFile = Dir
Loop
UserForm1.Show
End Sub

 

[Hap]

That's awesome. Thanks VoG