как из vba подсчитать количество файлов?

проверку наличия файла содержащего в названии ХХХ проверяю так:

If Len(Dir("w:\RIPGP\DataBase\*" ХХХ "*")) <> 0 Then....

а как подсчитать количество файлов, содержащих ХХХ ?

Ну типа

If Len(Dir("w:\RIPGP\DataBase\*" ХХХ "*")) <> 0 Then
    cnt=1
    Do Until Len(Dir()) = 0
        cnt=cnt+1
    Loop
Else
    cnt=0
End If

Так в том и вопрос
Как устроить перебор файлов, чтобы применить If ....

Quiet333,

Dir()

Это следующий файл по условию

Quiet333
Как устроить перебор файлов, чтобы применить If

Прочитать справку по функции Dir() не до конца первого предложения, а до конца статьи.

Akina,
Пошел читать

Использовать специально для этого предназначекнный объект FileSystemObject

Lockpickup
Использовать специально для этого предназначекнный объект FileSystemObject

Для данной конкретной задачи он ничем не лучше. Даже где-то хуже - потому что не умеет работать с шаблоном имени.