Status Bar...

  • Thread starter Thread starter James Weaver
  • Start date Start date
J

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
 
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
 
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)
 
Back
Top