home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / TE2_134T / te2inst.003 / FileCnt.scr < prev    next >
Text File  |  1997-07-03  |  822b  |  22 lines
  1. /* FileCnt.scr -- TE/2 REXX syntax script           */
  2. /*                Copyright 1994 by Oberon Software */
  3. /*                All rights reserved               */
  4. /*                                                  */
  5. /* NOTE: This script requires TE/2 1.30 or later    */
  6. /*                                                  */
  7. /* Usage: From another TE/2 script, either syntax,  */
  8. /*        execute RUN("FileCnt", args) and then     */
  9. /*        check RexxRC for the result which will be */
  10. /*        the number of files found.                */
  11.  
  12.   parse arg spec
  13.   if length(spec) = 0 then
  14.     do
  15.       say 'usage: FileCnt filespec'
  16.       exit 0
  17.     end
  18.   call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  19.   call SysLoadFuncs
  20.   call SysFileTree spec, 'sftReturn',  'F'
  21.   exit sftReturn.0
  22.