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?

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?

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?