One way
Sub test()
Dim foldername As String
foldername = "C:\Data"
With Application.FileSearch
.NewSearch
.LookIn = foldername
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() 0 Then
MsgBox .FoundFiles.Count & " Excel files were found"
Else
MsgBox "There were no files found."
End If
End With
End Sub
--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl
"James Weaver" wrote in message ...
I am using the following code to identify the filenames in
a specified directory:
myFNames = Dir("*.xls")
Is there any way of counting how many files this
comprises? I want to have the status bar showing an
update of what is going on behind the scenes...
Hope you can help!
Many thanks,
James