application.filesearch property

[Dalia]

hi,
Iam trying to find all files in my desktop but trhe code stopped in application.filesearch stating object doesnot support this action. why

Sub ListAllFiles()
    Dim ws As Worksheet, i As Long
    
    With Application.FileSearch
    .NewSearch
        .SearchSubFolders = False ' set to true if you want sub-folders included
        .FileType = msoFileTypeAllFiles 'can modify to just Excel files eg with msoFileTypeExcelWorkbooks
        .LookIn = "C:\" '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

 

[vletm]

Is this same?
http://vbadud.blogspot.fi/2010/02/office-2010-applicationfilesearch-error.html

 

[Deepak]

In short, it has been removed after 2003.
Another workaround are with the link.

 

[Dalia]

Thanks
How I Ll search the files in my desktop