Work around for Run-time Error 445: Object Doesn't Support This Action (File Search)

Forgive my inexperience, but do I simply remove the "Set fs = Application.FileSearch" line and insert the "ChDir strPath" line in its place? Or do I need to re-write the first part of the macro? ...if so, I'm lost. What would that look like in my code??? I looked at the example you linked me to, but I don't know how to adapt that code to my macro. Would it be helpful if I sent you the entire macro code?)

Thanks...I tried it, but now I'm getting a "Compile error: Invalid or unqualified reference" and refers me to the first line: Sub InserYearBranchNumberVLkup2(). If you have time, could you look at the whole code (it's long) and let me know where I went wrong???

Thanks in advance!!!

Please Login or Register  to view this content.

THANK YOU! That did it...I didn't look at the line close enough and thought it was the same as in the old code. Problem solved!!!

Thanks Joseph

I have same problem... any help would be greatly appreciated


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