Como abrir uma janela para seleção de arquivo em um programa FreeForm

Boa tarde Ivo.

Para fazer esta tela, você poderá utilizar as funções LOG_file_getListCount e LOG_file_getFromList. A partir destas funções você poderá carregar um ARRAY que poderá servir para exibir os dados em sua tela desenvolvida com um LBROWSEEX ou utilizar em um zoom que possua função de carga. Abaixo segue exemplo simples do uso destas funções:

DEFINE ma_files ARRAY[99] OF CHAR(200)

#-----------------------------------------------------------------------------#
PRIVATE FUNCTION prg0000_load_files()
#-----------------------------------------------------------------------------#
    DEFINE l_ind   INTEGER
    DEFINE l_count INTEGER

    LET l_count = LOG_file_getListCount("C:/Temp","*.txt",TRUE,TRUE,TRUE)

    FOR l_ind = 1 TO l_total
        IF  l_ind > 99 THEN
            EXIT FOR
        END IF

        LET ma_files[l_ind] = LOG_file_getFromList(l_ind)
    END FOR

    RETURN ma_files
END FUNCTION

Para mais detalhes:

• LOG_file_getListCount
• LOG_file_getFromList