Got it.. The following does the trick.

With Application.FileSearch
.....
.......
........
End With

Kevin

On Apr 15, 9:32 am, wrote:
Hello Group,

I am using

Set fs = Application.FileSearch

With fs
......
......
.......
End With

I get "Object required" error. So, what should I dim "fs" as? Should I
need to do something like

Dim wb as workbook?
If so, then what would be
Dim fs as ?

Kevin