Set fs = Application.FileSearch

[ucanalways]

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

 

[ucanalways]

Got it.. The following does the trick.

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

Kevin

 

[Office_Novice]

Somthing like this maybe

Sub Find()
Dim fs As Object

Set fs = Application.FileSearch

With fs
.LookIn = "c:\my documents"
.FileType = msoFileTypeExcelWorkbooks
.Execute

End With
End Sub

 

[crferguson]

Somthing like this maybe

Sub Find()
    Dim fs As Object

    Set fs = Application.FileSearch

    With fs
        .LookIn = "c:\my documents"
        .FileType = msoFileTypeExcelWorkbooks
        .Execute

    End With
End Sub











- Show quoted text -

It works if you just dim it and not set its type:

Dim fs
Set fs = Application.FileSearch


Cory

 

[Dave Peterson]

Or even:

dim FS as FileSearch

It works if you just dim it and not set its type:

Dim fs
Set fs = Application.FileSearch

Cory