File Search Macro error

[megha]

I have very old written macro to pull file names from one particular folder. It was working great like a magic. Today I am getting error message "Run time error 445: Object doesn't support this action" when I tried to run it. I double check the path and its correct. Not sure what is going wrong. Can someone please help?

Here is the code I am using:

BTW, i have a "completed checklist" folder where everyone housekeeping reports are saving on monthy basis. so, I use Month and year in cell E4 (i.e. Mar_2014) to run this script.

Private Sub CommandButton1_Click()
Dim fs As FileSearch, ws As Worksheet, i As Long
    Set fs = Application.FileSearch
    With fs
        .SearchSubFolders = False ' set to true if you want sub-folders included
        .FileType = msoFileTypeAllFiles 'can modify to just Excel files eg with msoFileTypeExcelWorkbooks
        .LookIn = "[URL="file://sptd.sabert.net/sites/op/olt/Production"]\\sptd.sabert.net/sites/op/olt/Production[/URL] Supervisors/HouseKeeping/Completed_Checklist\" & Range("E4").Value 'modify this to where you want to serach
        If .Execute > 0 Then
            Set ws = Worksheets.Add
            For i = 1 To .FoundFiles.Count
                ws.Cells(i, 1) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
            Next
        Else
            MsgBox "No files found"
        End If
    End With
End Sub

 

[mole999]

Did you shut down and restart to eliminate a PC issue

 

[megha]

Yes, I tried that but no luck. I'm still getting the same error message.

 

[mole999]

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

 

[megha]

Thank you so much for this. I looked at the link you have sent me. Yes, I have the same issue. I had the code for 2003 and now we are using 2010. I am little lost here not sure how to edit my code. Can you please help?

 

[mole999]

post the code here between code tags, oops it is posted above

 

[megha]

Private Sub CommandButton1_Click()
Dim fs As FileSearch, ws As Worksheet, i As Long
    Set fs = Application.FileSearch
    With fs
        .SearchSubFolders = False ' set to true if you want sub-folders included
        .FileType = msoFileTypeAllFiles 'can modify to just Excel files eg with msoFileTypeExcelWorkbooks
        .LookIn = "[URL="file://sptd.sabert.net/sites/op/olt/Production"][COLOR=#49644e]\\sptd.sabert.net/sites/op/olt/Production[/COLOR][/URL] Supervisors/HouseKeeping/Completed_Checklist\" & Range("E4").Value 'modify this to where you want to serach
        If .Execute > 0 Then
            Set ws = Worksheets.Add
            For i = 1 To .FoundFiles.Count
                ws.Cells(i, 1) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
            Next
        Else
            MsgBox "No files found"
        End If
    End With
End Sub

 

[megha]

yes, its posted above in my original post. Also, posted again.