[CDR X5-X8] В макросе пытаюсь получить список файлов. Выдает ошибку

[SeYV1970]

Не шКодил уже лет 25, подзабыл много , в том числе и англинский
Но тут возникла необходимость написать макрос

Задача : в массив запихнуть файлы с расширением *.plt из выбранной папки

Corel X6 (Русский)

Написал следующее

...

sFile = CorelScriptTools.GetFileBox("Files (*.plt)|*.plt", "Выберите файл", 0, "", "plt", "", "Офигеть")

...

sFolder = Left(sFile, InStrRev(sFile, "\")) '
sFile = CorelScriptTools.FindFirstFolder(sFolder + "*.plt", 32 Or 128)

While sFile <> ""

f_ViborFile = f_ViborFile + 1

ReDim Preserve msFile(f_ViborFile)

msFile(f_ViborFile) = sFile
sFile = CorelScriptTools.FindNextFolder()

WEnd

При выполнении ругается, что FindNextFolder надо выполнять после FindFirstFolder

"Метод FindFirstFolder требуется вызывать перед FindNextFolder"

Для теста пробовал вариант

sFile = CorelScriptTools.FindFirstFolder(sFolder + "*.plt", 32 Or 128)
sFile = CorelScriptTools.FindNextFolder()

результат тот же

Что делаю не так ?

В хелпах решения не нашел, на форуме поиском то же не бьется

 

[_MBK_]

Вы как то сильно сложно это пытаетесть делать, боюсь, через чатжопэтэ
Есть же функция Dir

 

[SeYV1970]

Спасибо помогло
Почему-то думал, что Dir в Кореле не работает т.к. везде где нашёл , описывается как для применения в экселе
По сути FindFirstFolder и FindNextFolder" кореловский аналог Dir, но не работающий

Пошел дальше штудировать VBA, видимо ждут меня великие открытия
По джепити надо надо бы то же почитать не в нвовостях

 

[DukereD]

джипити и корел не совместимы лучше не терять время )

 

[_MBK_]

Жпт, разве что, в шарп или питон с разбегу ворваться позволяет, да и то очень велик шанс головой в штангу врезать

 

[zollinger]

джипити и корел не совместимы лучше не терять время )

Также, как джипити и акробат. Генерит js красиво, очень похоже на правду, пока читаешь исходник, только функций таких нет в акробате и вообще все работает по другому

 

[SeYV1970]

Посмотрел, почитал...
Да уж, VBA по крайней мере для X6 это жесть
То ли дело в прошлом веке были Assembler, Fortran, Pascal, C и FoxPro
Тяжко переучиваться

 

[_MBK_]

Посмотрел, почитал...
Да уж, VBA по крайней мере для X6 это жесть
То ли дело в прошлом веке были Assembler, Fortran, Pascal, C и FoxPro
Тяжко переучиваться

Вы так говорите, как будто провели полвека в летаргическом сне. Вы не поверите, но лично я четыре десятка лет назад учился программированию на ПК именно на Бейсике.

 

[mnemonix]

PL-1

 

[_MBK_]

PL-1

Такое тоже было, но на перфокартах.
Лезвием дырочки ковырять, мммм!

 

[mnemonix]

Главное было колоду не рассыпать)))
И свою читалку соорудить.

 

[mnemonix]

лучше не терять время

Терял, да)))

 

[_MBK_]

Главное было колоду не рассыпать)))
И свою читалку соорудить.

Пик увлечения читалками у нас был в младших классах. На нашей улице располагалось статуправление, вокруг которого перфокарты были разбросаны в великом множестве.

 

[mnemonix]

статуправление

Ну прям не знаю, что там было прочитать) Но почуствовать себя шпиёном/избранным, дорогого стоило) в школе стооолько вариантов шифров и псевдостеганографии самопридуманых было)) Но это уже явный офф.