| Код |
|
У объекта FileSearch есть несколько атрибутов, с помощью которых можно задать параметры поиска: папку поиска, расширение файлов, искать во вложенных папках и т. д. (На память названия атрибутов не помню, но в справке все было вроде)
Потом выполняем собственно поиск:
| Код |
|
Тут я не помню - execute это процедура или функция. Если функция, то строка должна выглядеть так:
| Код |
|
Переменная found будет содержать число найденных файлов.
После этого (опять провал в памяти) в один из атрибутов объекта FileSearch помещается список имен найденных файлов.
В цикле их можно обработать примерно так (надо использовать функцию, которая ищет подстроку в строке; ее название я тоже не помню
):| Код |
|
Переменная r задает номер строки, в которую будет выводиться имя файла, i - счетчик цикла. Их можно описать любым целым типом (Long, Byte и т. д.) Cells(x,y) - это ячейка экселя в строке x и столбце y.
Если до завтрашнего утра никто не напишет ничего более толкового, пойду ставить эксель...
