home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / text / FAQ / bonus / faq_reportall.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-16  |  369b  |  18 lines
  1. /*  ARexx-Skript für Meeting Pearls
  2.     Report der FAQ
  3.     $VER: faq_reportall.rexx 0.1 (14.08.95) ©1995 Khamsonh Marcel Khounlivong
  4.     */
  5.  
  6. PARSE ARG srcdir
  7.  
  8. srcdir = Strip(Strip(srcdir),t,'/') || '/'
  9. files = ShowDir(srcdir,f)
  10.  
  11. CALL AddLib('rexxsupport.library',5,-30)
  12.  
  13. DO i=1 FOR Words(files)
  14.     file = srcdir || Word(files,i)
  15.     CALL faq_report.rexx file
  16.     END
  17.  
  18.