Как составить список текстовых файлов в каталоге в Progress 4GL?

Question

У меня есть папка на диске c, которая содержит 1000 текстовых файлов, я хочу чтобы получить список всех этих текстовых файлов. Как я могу получить этот список?

Answer 1

Используйте функцию OS-DIR().

Например:

DEFINE STREAM dirlist.
DEFINE VARIABLE filename AS CHARACTER FORMAT "x(30)" NO-UNDO.

INPUT STREAM dirlist FROM OS-DIR(".").

REPEAT:   
    IMPORT STREAM dirlist filename.
    DISPLAY filename.
END.

INPUT CLOSE.

Answer 2

У меня есть программа для работы с каталогами, которая позволяет разработчику делать разные забавные вещи с файловыми системами. Вы можете получить код здесь: http://communities.progress.com/pcom/docs/DOC-16578

Answer 3

Например: ipcPath = "C: \ temp \

DEFINE INPUT PARAMETER ipcPath  AS CHARACTER   NO-UNDO.
DEFINE VARIABLE chFiles        AS CHARACTER   NO-UNDO.

INPUT FROM OS-DIR(ipcPath).
REPEAT:
    IMPORT UNFORMATTED chImport NO-ERROR.
    DISPLAY chFiles FORMAT "X(75)".
END.
INPUT CLOSE.

chFiles - это список с разделением пробелами, содержащий имя файла, путь и тег 'F' или 'D'.