Я нашел быструю функцию VBA для перебора файлов

Ну надо же, корифеи сайта 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