Status Bar...

[James Weaver]

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

 

[Don Guillett]

Maybe this will help

http://tinyurl.com/qrbr

 

[Ron de Bruin]

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

 

[Bob Phillips]

James,

Try using FileSearch

With Application.FileSearch
.NewSearch
.LookIn = "d:\Bob\My Documents\My Spreadsheets"
.SearchSubFolders = False ' True to include subfolders
.Filename = "*.xls"
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
myFNames = .FoundFiles.Count
End With


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)