Many thanks, your way is a million times faster than Filesearch, and it
solves my problem.

Stratuser


"Vergel Adriano" wrote:

Stratuser,

give this a try:

Dim strFile As String
strFile = Dir("D:\TEMP\*.XLS")
While strFile < ""
ListBox1.AddItem strFile
strFile = Dir
Wend



--
Hope that helps.

Vergel Adriano


"Stratuser" wrote:

I have a userform that uses the filesearch command to get 132 filenames from
a subdirectory and put them into a listbox that I pick the filenames from.
The filesearch command is way too slow --- taking 30 seconds every time ---
so I'm looking for a more efficient way. Any ideas?