Quick Q re: files in a dir

[Neil]

Can anyone suggest a snipit of code to see how many files
are in a dir called, the dir would be a variable called
foldername.

Many thanks in advance

 

[Ron de Bruin]

Try this Neil

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

 

[neil]

Thanks Ron,
Whats the msoFileType equivalent of *.*, i.e. all files ?

 

[Ron de Bruin]

Whats the msoFileType equivalent of *.*, i.e. all files ?
msoFileTypeAllFiles


From the VBA help

MsoFileType can be one of these MsoFileType constants.

msoFileTypeAllFiles
msoFileTypeBinders
msoFileTypeCalendarItem
msoFileTypeContactItem
msoFileTypeCustom
msoFileTypeDatabases
msoFileTypeDataConnectionFiles
msoFileTypeDesignerFiles
msoFileTypeDocumentImagingFiles
msoFileTypeExcelWorkbooks
msoFileTypeJournalItem
msoFileTypeMailItem
msoFileTypeNoteItem
msoFileTypeOfficeFiles
msoFileTypeOutlookItems
msoFileTypePhotoDrawFiles
msoFileTypePowerPointPresentations
msoFileTypeProjectFiles
msoFileTypePublisherFiles
msoFileTypeTaskItem
msoFileTypeTemplates
msoFileTypeVisioFiles
msoFileTypeWebPages
msoFileTypeWordDocuments