Application.FileSearch error

[kmiles]

The following code works fine in Excel 2003 but returns the following error in Excel 2007:

Run time error '445'
Object does not support this action


CODE:
Sub List_Files()

Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook

Set wbCodeBook = ThisWorkbook

With Application.FileSearch
.NewSearch
.LookIn = "C:\Departments\Inventory\"
.FileType = msoFileTypeAllFiles
.Filename = "20*"
If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count 'Loop through all.
'Open Workbook x and Set a Workbook variable to it
Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)
Application.StatusBar = Str(lCount) & " files found - Now working on " & ActiveWorkbook.FullName
rteval = MsgBox("Now working on " & ActiveWorkbook.FullName)

wbResults.Close SaveChanges:=True

Next lCount
End If
End With
End Sub

 

[Norie]

Jon

Of course you can use Dir recursively to search subdirectories and as
far as I know you need to use recursion for subdirectories with FSO too.

With FileSearch all you needed to do was set the SearchSubFolders property to true.

I can't see any methods/properties of the FSO that allow text in a file to be searched, though
there are obviously various other useful methods it has that FileSearch doesn't offer.

 

[tawakoni2010]

the code posted by kmiles works just fine, but for some reason it is not capturing the very first file in the folder. I messed with it for a while and gave up (with a workaround of course) I put a fake file in the folder that showed up alphabetically first.