| Вопрос: Как определить кол-во файлов по маске в директории | Добавлено: 23.06.08 13:57 |
Автор вопроса:  Jasmin
|
|
Здравствуйте!
Раньше пользовалась With Application.FileSearch
.NewSearch .LookIn = WorkDirFiles 'рабочая директория .Filename = "H_*.xls" 'маска файла If .Execute() > 0 Then numspis = .FoundFiles.Count [остальной код] End If End With Но возникла проблема. В Office 2007 это не работает. :-( После выяснения в инете оказалось, что рекомендуют пользоваться Dir для поиска файлов. А как определить количество файлов в директории в таком случае ? Спасибо |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #1 | Добавлено: 23.06.08 14:05 |
| Может поможет http://www.andreymp.land.ru/sources/filedir/filedir.htm | ||
|
Номер ответа: 2 Автор ответа: Jasmin Вопросов: 23 Ответов: 417 |
Профиль | | #2 | Добавлено: 23.06.08 14:17 |
Не подходит. 
Вот думаю от безысходности может сделать сначала пробег по Dir с накоплением количества файлов, а потом цикл уже по этим файлам снова через Dir ? Только не красиво это как-то. |
||
Страница: 1 |