在Progress中获取文件属性

Progress提供了一系列的方法,让用户可以方便幕袢〔僮飨低车奈募?畔?比如路径,文件大小等等.[@more@]

一个实例,来显示用户输入的一个操作系统文件的信息:

DEF VAR os-file AS CHAR FORMAT "x(60)" LABEL "Input a File".

REPEAT:
SET os-file WITH FRAME a.
FILE-INFO:FILE-NAME = os-file. DISPLAY FILE-INFO:FULL-PATHNAME FORMAT "x(60)" LABEL "Full Path"
FILE-INFO:PATHNAME FORMAT "x(60)" LABEL "Path"
FILE-INFO:FILE-TYPE LABEL "Type"
FILE-INFO:FILE-SIZE LABEL "Size"
WITH FRAME a SIDE-LABELS .

IF FILE-INFO:FILE-SIZE = 0 THEN MESSAGE "Empty File.".
END.

这段代码会让你填写一个文件名,如果找到这个文件,就显示出这个文件的完整路径,以及文件名,文件大小. 如果文件大小是零,就会出现一个message,提示这是一个空文件.

4GL 参考.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/182208/viewspace-916633/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/182208/viewspace-916633/