Kbase P21640: How to get a list of the files of a specified directory by 4GL?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
15/10/2008 |
|
Status: Verified
GOAL:
How to get a list of the files of a specified directory by 4GL?
GOAL:
Using INPUT FROM OS-DIR statement
FIX:
DEFINE VARIABLE cDir AS CHARACTER NO-UNDO INITIAL 'D:\'.
DEFINE VARIABLE cFileStream AS CHARACTER NO-UNDO.
INPUT FROM OS-DIR (cDir) ECHO.
REPEAT:
IMPORT cFileStream.
FILE-INFO:FILE-NAME = cDir + cFileStream.
DISPLAY cFileStream FORMAT "X(18)" LABEL 'name of the file'
FILE-INFO:FULL-PATHNAME FORMAT "X(21)" LABEL 'FULL-PATHNAME'
FILE-INFO:PATHNAME FORMAT "X(21)" LABEL 'PATHNAME'
FILE-INFO:FILE-TYPE FORMAT "X(5)" LABEL 'FILE-TYPE'.
END.