test-file-info.p
| 1 |
DEFINE VARIABLE os-file AS CHARACTER FORMAT "x(60)" LABEL "File". |
|---|---|
| 2 |
DEFINE BUTTON bt1 LABEL "Update". |
| 3 |
|
| 4 |
os-file = "n:\Environments\Login.w". |
| 5 |
|
| 6 |
|
| 7 |
DISPLAY os-file skip bt1 WITH FRAME osfile-info SIDE-LABELS TITLE "OS File Info". |
| 8 |
|
| 9 |
enable all with frame osfile-info. |
| 10 |
|
| 11 |
on choose of bt1 do: |
| 12 |
|
| 13 |
FILE-INFO:FILE-NAME = os-file:SCREEN-VALUE in frame osfile-info. |
| 14 |
|
| 15 |
DISPLAY FILE-INFO:FULL-PATHNAME FORMAT "x(60)" LABEL "Full Path" |
| 16 |
FILE-INFO:PATHNAME FORMAT "x(60)" LABEL "Path" |
| 17 |
FILE-INFO:FILE-TYPE LABEL "Type" |
| 18 |
WITH FRAME osfile-info SIDE-LABELS TITLE "OS File Info". |
| 19 |
|
| 20 |
end. |
| 21 |
|
| 22 |
wait-for close of this-procedure. |
| 23 |
|
| 24 |
|
| 25 |
|