Still need help counting files? 1

[ribhead]

I just copied this from the Help File at work. I take it I'm missing some code here?

Sub whatthe()
With Application.FileSearch
.LookIn = "h:"
.Filename = "*.xls"
.SearchSubFolders = True
MsgBox .FoundFiles.Count
End With
End Sub
Any help would be great!!!

For just $19.95 you too can have a beautiful smile.

 

[dan1967]

You don't need to specify the extension in the FileName property. The piece you omitted is the .Execute:

Sub whatthe()
With Application.FileSearch
    .NewSearch
    .LookIn = "c:\my documents"
    .Filename = "*"
    .SearchSubFolders = False
    .MatchTextExactly = False
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
MsgBox .FoundFiles.Count
End With
End Sub

Dan.

 

[ribhead]

Thanks a bunch Dan the Man. Wors Great!!!!

For just $19.95 you too can have a beautiful smile.

 

[dan1967]

I'm glad to help. Thanks for the star.

Dan.