Visual Basic para Aplicaciones - Contar Archivos De Excel

Ayuda como contar archivos de excel en un directorio de esta manera se cuantos hay en un directorio pero como contar unicamente los que tengan extension .XLS

Set ObjCarpeta = CreateObject("Scripting.FileSystemObject")
Set Carpeta = ObjCarpeta.GetFolder(App.Path)

'MsgBox "Archivos " & Carpeta.Files.Count
'MsgBox "SubCarpetas " & Carpeta.SubFolders.Count

Saludos,

Excelente el tip, vos tiene por casualidad el código para contar archivos txt en una carpeta determinada y el de convertir archivos txt en archivo dbf.

Gracias por el apoyo

[email protected]