runtime error 445 - Set Search = Application.FileSearch

[djuricap]

Can someone help me please.. I need to make this macro work in excel 2010...

thanx in advance


Function FileList(folder As String, match As String, subfolders As Boolean)

Dim list() As String, file As String
Dim i As Integer
i = 0
Set Search = Application.FileSearch
With Search
.NewSearch
.LookIn = folder
.Filename = match
.SearchSubFolders = subfolders
total = .Execute()
If total > 0 Then
ReDim list(total - 1)
For Each el In .FoundFiles
file = CStr(el)
list(i) = file
i = i + 1
Next
Else
ReDim list(0)
list(0) = "()"
End If
End With
FileList = list()
Set Search = Nothing
End Function

[TMS]

Application.FileSearch was dropped in Excel 2007. You'll need to replace it with Scripting.FileSystemObject or something similar.

Have a look on Chip Pearson's or Ron de Bruin's websites for ideas.


Regards, TMS

[Norie]

Application.FileSearch hasn't been available in Excel since, I think, Excel 2007.

What is is you are trying to do with the code?

PS Please use code tags when posting code.