Question

我在c盘中有一个文件夹，包含1000个txt文件，我想要获取所有这些txt文件的列表。我怎么能得到这个清单？

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

例如：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是一个spacedelimeted列表，包含文件名，路径和“F”或“D”标记。

Answer 3

我有一个目录工具程序，它使开发人员能够使用文件系统进行各种有趣的事情。您可以在此处获取代码：http://communities.progress.com/pcom/docs/DOC-16578

如何在Progress 4GL中的目录中列出文本文件？

3 个答案: