>>-SysFileTree(filespec,stem------------------------------------>
>--+-------------------------------------------------------+---->
+-,--+---------+--+-----------------------------------+-+
+-options-+ +-,--+---------+--+---------------+-+
+-tattrib-+ +-,-+---------+-+
+-nattrib-+
>--)-----------------------------------------------------------><
Note
Example 8.13. RexxUtil - SysFiletree
/* Find all subdirectories on C: */
call SysFileTree "c:\*.*", "file", "SD"
/* Find all executable (.exe) files under Program Files*/
ret = SysFileTree('C:\Program Files\*.exe', f, 'FS')
/* Find all Read-Only files */
call SysFileTree "c:\*.*", "file", "S", "***+*"
/* Clear Archive and Read-Only attributes of files that have them set */
call SysFileTree "c:\*.*", "file", "S", "+**+*", "-**-*"
/****<< Sample Code and Output Example.>>********/
/* Code */
call SysFileTree "c:\win*.", "file", "B"
do i=1 to file.0
say file.i
end
/* Actual Output */
5:24:95 4:59p 0 -D--- C:\WINDOWS