MS excel Application.FileSearch

[ami24]

Hi

We are finding a problem in Application.FileSearch function in excel 2007.

I don't know programmimg so can anyone of the experts help me in converting this program so it can used.

With Application.FileSearch
.LookIn = Worksheets("Parameters").Cells(5, 3).Value
.SearchSubFolders = True
.Filename = "*" & ".xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Worksheets("List of reports").Cells(LoadingRow, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
.FoundFiles(i), TextToDisplay:=.FoundFiles(i)
Worksheets("List of reports").Cells(LoadingRow, 1) = .FoundFiles(i)

tempString = Dir(.FoundFiles(i))
Worksheets("List of reports").Cells(LoadingRow, 3) = tempString

Thanks in advance.

 

[Joe4]

Welcome to the Board!

It has been removed from Excel 2007. Take a look here for a list of alternatives: http://www.mrexcel.com/forum/showthread.php?t=268046