troubles with application.filesearch

[Overkill32]

Am i the only one for which the application.filesearch doesn't find any file with the following code :

With Application.FileSearch
.NewSearch
.LookIn = "J:\"
.SearchSubFolders = True
MsgBox .FoundFiles.Count
End With

What did i miss out that makes the code return 0 in the msg box everytime i run it??

 

[Trevor G]

Try this out. Excel 2007 has removed file search so this code will work in all versions.

Sub FolderDir()

Dim sFilename As String, iRow As Long

sFilename = Dir("M:\Access Files\")
Do Until sFilename = ""
iRow = iRow + 1
Cells(iRow, 1) = sFilename
sFilename = Dir()
Loop

End Sub

 

[bertie]

This FileSearch routine worked for me

    [color=darkblue]Set[/color] objSearch = Application.FileSearch
    [color=darkblue]With[/color] objSearch
        .LookIn = "C:\My Documents\Excel"
        .SearchSubFolders = [color=darkblue]True[/color]
        .Filename = "*.xl*"
        .Execute
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    
    MsgBox objSearch.FoundFiles.Count

 

[Overkill32]

Still with excel 2003...but yes.... i forgot the .execute command in my with loop.

Thanks for the help!