fixin (fixin) wrote,
fixin
fixin

Я нашел быструю функцию 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
 
Tags: опыт
Subscribe
promo fixin december 31, 2037 16:57 1417
Buy for 30 tokens
UPD: Друзья, в августе 2019 года блог переехал на http://fixinchik.ru. Welcome! Добро пожаловать в журнал Осипова Сергея Александровича, известного также как Fixin и Гений 1С. Рекомендую ознакомиться с Часто Задаваемыми Вопросами обо мне. Что я хочу в подарок - список. Мой проект "…
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 0 comments