Seleccionar un Archivo

SI es windows no debes de tener problemas con este código:

DEF VAR F-arch  AS CHAR  NO-UNDO.

DEF VAR preg1  AS LOG  NO-UNDO.

 SYSTEM-DIALOG GET-FILE F-arch

        TITLE      "Digite archivo a procesar ..."

        FILTERS    "Archivos a buscar (*.csv)"   "*.csv", "Todos los archivos (*.*)"  "*.*"

        INITIAL-DIR    "c:\temp"

        MUST-EXIST

        USE-FILENAME

        UPDATE preg1.

 IF F-arch <> "" THEN F-arch:SCREEN-VALUE = F-arch.

        DEFINE VARIABLE fName    AS CHARACTER NO-UNDO.
        DEFINE VARIABLE bPicked AS LOGICAL   NO-UNDO.

        SYSTEM-DIALOG GET-FILE fName
            FILTERS           "*.pdf" "*.pdf"  /* Filter                */
            DEFAULT-EXTENSION "*.pdf"           /* default-extensions     */
            TITLE             "Abrir..."
            UPDATE bPicked.

        /*IF bPicked THEN DISPLAY fName WITH FRAME {&FRAME-NAME}.  */
        IF bPicked THEN
        DO:
            ASSIGN
                fArchivo = fName.
            DISPLAY fArchivo WITH FRAME {&FRAME-NAME}.
        END.

Gracias

Gracias