Ну надо же, корифеи сайта SQL.RU полгода не могли найти решение проблемы, уж сколько идей предлагали. А я вот взял и нашел решение. Случайно, правда.
http://www.sql.ru/forum/actualthread.aspx?tid=790935
Речь была о том, как быстро в VBA найти файлы заданного типа в каталоге и подкаталогах. Я использовал скриптовый объект FileSystem. Но нашел сам, без помощи корифеев решение побыстрее - функция Dir в языке VBA.
Так что если даже профессионалы не дают Вам решения, не значит, что его нет, ищите - и обрящете.
Функция нужна была для движка моего HTML-сайта, который бы обновлял страницы из Word & XLS файлов.
Вот код функции:
Sub SearchFilesForPath(ArrayOfSearchedFiles, FolderPath, FileExt) SearchMask = FolderPath & "\*." & FileExt FileName = Dir(SearchMask) While FileName <> "" If UCase(Right(FileName, Len(FileExt))) = UCase(FileExt) Then ArrayOfSearchedFiles.Add FolderPath & "\" & FileName End If FileName = Dir() Wend End Sub
Обсуджение тут: http://dff.sytes.net/4520
Journal information