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

Quiet333
Дата: 16.12.2015 16:11:17
проверку наличия файла содержащего в названии ХХХ проверяю так:
If Len(Dir("w:\RIPGP\DataBase\*" ХХХ "*")) <> 0 Then....


а как подсчитать количество файлов, содержащих ХХХ ?
Akina
Дата: 16.12.2015 16:27:10
Ну типа
If Len(Dir("w:\RIPGP\DataBase\*" ХХХ "*")) <> 0 Then
    cnt=1
    Do Until Len(Dir()) = 0
        cnt=cnt+1
    Loop
Else
    cnt=0
End If
Quiet333
Дата: 16.12.2015 16:55:46
Так в том и вопрос
Как устроить перебор файлов, чтобы применить If ....
Шыфл
Дата: 16.12.2015 17:02:56
Quiet333,

Dir()


Это следующий файл по условию
Akina
Дата: 16.12.2015 17:33:54
Quiet333
Как устроить перебор файлов, чтобы применить If

Прочитать справку по функции Dir() не до конца первого предложения, а до конца статьи.
Quiet333
Дата: 16.12.2015 17:47:45
Akina,
Пошел читать
Lockpickup
Дата: 25.12.2015 11:22:34
Использовать специально для этого предназначекнный объект FileSystemObject
Akina
Дата: 25.12.2015 12:34:03
Lockpickup
Использовать специально для этого предназначекнный объект FileSystemObject

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