在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 參考.