DEFINE VARIABLE vCount AS INTEGER NO-UNDO.
DEFINE VARIABLE vFileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE vFileType AS CHARACTER NO-UNDO.
DEFINE VARIABLE vFullPath AS CHARACTER NO-UNDO.
DEFINE VARIABLE vTableList AS CHARACTER NO-UNDO.
DEFINE STREAM sImport.
DEFINE STREAM sExport.
OUTPUT STREAM sExport TO "C:\Temp\ProgsContainingTable.txt".
INPUT STREAM sImport FROM OS-DIR("C:\Progress\Progs").
REPEAT:
IMPORT STREAM sImport vFileName vFullPath vFileType.
IF INDEX(vFileType, "F") > 0 AND vFileName MATCHES "*~~.r" THEN DO:
ASSIGN RCODE-INFO:FILE-NAME = vFullPath
vTableList = RCODE-INFO:TABLE-LIST.
IF vTableList MATCHES "*table_crb*" THEN
PUT STREAM sExport vFileName SKIP.
END.
END.
INPUT STREAM sImport CLOSE.
OUTPUT STREAM sExport CLOSE.