COM_KUNENA_MESSAGE_CREATED_NEW

Я так понимаю я тут буду первым кто оставит вопрос

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

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

{globals.i}

DEF VAR source AS CHAR FORMAT "x(60)" NO-UNDO.
source = "bnkseek.dbf".

{getfile.i &set1     = "НСИ"
           &set2     = "Каталог"
           &mode     = must-exist
           &filename = source
           &return   = "LEAVE"}

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

COM_KUNENA_MESSAGE_REPLIED_NEW

Спасибо, а как получить путь к файлу?

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

COM_KUNENA_MESSAGE_REPLIED_NEW

Спасибо, буду пробывать

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

def var pFilter as character.
def var pStatus as logical.
def var pFile as character.

run adeedit/_dlggetf.p (
INPUT "<Title Here>",
INPUT NO, /* NO for Open, YES for Save As */
INPUT pFilter,
INPUT-OUTPUT pFile,
OUTPUT pStatus ).

message pStatus skip
pFile
view-as alert-box.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.