Почему не работает код?

[VBTerminator]

В одной из моих программ потребовалось использование подключаемых модулей (адд-онов). Соответственно, я написал DLL-ку, которая предоставляла бы нужные свойства и методы всех аддонов в определённой папке (каждый адд-он представляется как элемент коллекции).

Но библитека не захотела корректно работать - при запуске главное приложение зависало вместе с ней. Как выяснилось после отладки - причиной зависания была функция CreateObject (находщаяся в класе Plugin), которая при каждом вызове генерировала ошибку, даже после того, как в обработчике ошибок обрабатываемый адд-он регистрировался, т. е. был цикличный вызов обработчика ошибок, затем регистрация адд-она, затем Resume...

Где в коде допущена ошибка?

[Vi]

Код: Выделить всё

        'Получаем адд-он
        Set PluginObject = CreateObject(App.Path & "\modules\" & ModuleName & ".PluginModule")


CreateObject просит ProgID, для VB реализующийся как <имя библиотеки>.<имя класса>. В крайнем случае - ModuleName & ".PluginModule".

Да, и забыл. Перебор файлов нужно также нужно изменить, иначе это бесконечный цикл.

Код: Выделить всё

                strCurrentFile = Dir(App.Path & "\modules\*.dll")
                'Пока мы получаем список файлов
                Do While strCurrentFile <> vbNullString
                        Set objNewMember = New Plugin                      'Создаём класс
                        objNewMember.InitPlugin strCurrentFile
                Loop



[VBTerminator]

Да, и забыл. Перебор файлов нужно также нужно изменить, иначе это бесконечный цикл.

Ах, да, забыл перед Loop поставить strCurrentFile = Dir()

Архив обновлён.

В крайнем случае - ModuleName & ".PluginModule"

ModuleName - это имя библиотеки в файловой системе?