home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma73.lha / MAShare73 / Xtruder / Rexx / Examples / Xtruder_CheckFiles.rexx next >
Encoding:
OS/2 REXX Batch file  |  1996-02-21  |  456 b   |  28 lines
  1. /*
  2. ** 'CheckFiles' example
  3. */
  4.  
  5. Options Results
  6.  
  7. Address XTRUDER
  8.  
  9. CheckFiles 'C:Dir' 'C:List'
  10.  
  11. IF RC < 0 THEN
  12.    Say 'Error 'RC' occured!'
  13. ELSE IF RC = 0 THEN
  14.    Say 'No vira found in checked files'
  15. ELSE IF RC > 0 THEN
  16.    DO
  17.    Say 'Number of vira found: ' RC
  18.    Say ''
  19.      DO x=1 to RC
  20.        GetVirusName x
  21.        Say 'Virus name:     ' result''
  22.  
  23.        GetVirusFileName x
  24.        Say 'Virus file name:' result''
  25.        Say ''
  26.      END
  27.     END
  28.