VBA code working in excel2003 but not in excel2007

[Kang Onechoon]

I have several macros written for excel which use filesearch method retrieve
files within a directory. It appears that Office 2007 no longer supports
this.
Any suggestions on how to replace this code ?
---------------------------------------------------------------------------------------------
Sub fileSearchff()
Dim intNum As Integer
With Application.FileSearch
.NewSearch
.Filename = "*.xls"
.LookIn = "C:\"
.SearchSubFolders = True
.Execute

Application.DisplayAlerts = False

For intNum = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(intNum)
ActiveWorkbook.SaveAs Filename:=.FoundFiles(intNum), _
FileFormat:=xlNormal, Password:="aaaaa", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False



ActiveWorkbook.Close
Cells(intNum, 1) = .FoundFiles(intNum)
Next

Application.DisplayAlerts = True

End With
End Sub

Thank you in advance

 

[Dave Peterson]

Ron de Bruin shares some techniques using Dir():
http://www.rondebruin.nl/copy3.htm

and FSO:
http://www.rondebruin.nl/fso.htm

 

[Simon Murphy]

Kang
Drop in commercial FileSearch replacement available here:

http://www.codematic.net/excel-tools/office-2007-filesearch.htm

Cheers
Simon
Blog: www.smurfonspreadsheets.net