>>-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