1

我在 C 盘有一个文件夹,里面包含 1000 个 txt 文件,我想获取所有这些 txt 文件的列表。我怎样才能得到这个清单?

4

3 回答 3

10

使用该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.
于 2009-08-21T09:01:00.717 回答
0

例如: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”标签。

于 2011-11-16T11:17:16.650 回答
0

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

于 2011-12-16T20:52:01.250 回答