Using the SYSTEM-DIALOG GET-FILE in Progress 4gl.

DEFINE VARIABLE cFile AS CHARACTER NO-UNDO.
DEFINE VARIABLE logok AS LOGICAL.

SYSTEM-DIALOG GET-FILE cFile
TITLE      “Choose a file …”
FILTERS    “Text files (*.txt)”   “*.txt”
INITIAL-DIR “C:\”
MUST-EXIST
USE-FILENAME
UPDATE logOK.

MESSAGE cFile VIEW-AS ALERT-BOX.

😀