Вопрос : отсчет # архивов в скоросшивателе, котор дали частично имя

Я имею скоросшиватели быть названным:
AV-215 самое лучшее пока к Come
AV-300 на одно время, котор вы делаете It
AV-215 вроде полюбили вы Before
AV-310 это будет местом и потребностью Time
… etc.
I дорога input, например «AV-215» и иметь мою программу VB6 сказать мне сколько архивы в ВСЕХ скоросшивателях с первыми характерами «AV-215», total.
class=

Ответ : отсчет # архивов в скоросшивателе, котор дали частично имя

О'КЕЙО, теперь оно смотрит через subfolders.

Будьте уверен пройти непредсказуемого человек в NameFragment, по мере того как я показал в моем первом комментарии.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27:

Функция CountFiles (директория как шнур, NameFragment как шнур) Тусклое fso как предмет, fld как предмет, sf как предмет, fil как предмет Затемните отсчет как длиной Установите fso = CreateObject («Scripting.FileSystemObject») Установите fld = fso.GetFolder (директория) 'Извлекайте если вы не хотите проверить директорию самое Для каждого fil в fld. Архивы Если LCase, то (fil. Имя) как отсчет LCase (NameFragment) после этого = отсчет + 1 Затем Для каждого sf в fld.SubFolders Для каждого fil в sf. Архивы Если LCase, то (fil. Имя) как отсчет LCase (NameFragment) после этого = отсчет + 1 Затем Затем CountFiles = отсчет Установите fil = ничего Установите sf = ничего Установите fld = ничего Установите fso = ничего Закончите функцию