Listar los Ficheros de una carpeta.

DEFINE VARIABLE cDir AS CHARACTER   NO-UNDO.
DEFINE VARIABLE cFileStream AS CHARACTER   NO-UNDO.

cDir = "C:\pru".
INPUT FROM OS-DIR (cDir) ECHO.
REPEAT:
    IMPORT cFileStream.
    MESSAGE cFileStream
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.