Kbase P21374: How to get a list of files with a particular extension from
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
3/17/2003 |
|
Status: Unverified
GOAL:
How to get a list of files with a particular extension from within a Progress 4GL program?
FIX:
DEFINE VARIABLE SELECT-1 AS CHARACTER LABEL "List of .df files..."
VIEW-AS SELECTION-LIST SINGLE SCROLLBAR-VERTICAL
SIZE 30 BY 6.91 NO-UNDO.
DEFINE VARIABLE vcCmdFileList AS CHARACTER NO-UNDO.
DEFINE VARIABLE vcInputFileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE vcFileName AS CHARACTER NO-UNDO.
DEFINE FRAME DEFAULT-FRAME
SELECT-1 AT ROW 2 COL 15
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
NO-UNDERLINE THREE-D FONT 6
AT COL 1 ROW 1
SIZE 55 BY 10.
ASSIGN vcInputFileName = "listOfDFs.txt":U
vcCmdFileList = "dir *.df /b > ":U + vcInputFileName.
OS-COMMAND SILENT VALUE(vcCmdFileList).
INPUT FROM VALUE(vcInputFileName).
REPEAT:
IMPORT UNFORMATTED vcFileName.
SELECT-1:ADD-FIRST(vcFileName).
END.
INPUT CLOSE.
ASSIGN CURRENT-WINDOW:HEIGHT = 10
CURRENT-WINDOW:WIDTH = 55.
ENABLE SELECT-1 WITH FRAME DEFAULT-FRAME.
IF SELECT-1:NUM-ITEMS > 0 THEN
ASSIGN SELECT-1:SCREEN-VALUE = ENTRY(1,SELECT-1:LIST-ITEMS).
WAIT-FOR CLOSE OF THIS-PROCEDURE.