home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / exist.cmd < prev    next >
OS/2 REXX Batch file  |  1993-12-13  |  588b  |  23 lines
  1. /*  IF EXISTS
  2.  
  3. CALL EXIST fn type                                           'fn = DIR or FN.EXT   type = D dir -or- F file
  4. IF RESULT = 0 THEN SIGNAL FOUND
  5. IF RESULT = 1 THEN SIGNAL NOT FOUND
  6. IF RESULT = 2 THEN SIGNAL BAD CALL
  7.  */
  8.  
  9. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. CALL SysLoadFuncs
  11. ARG FN TYPE
  12. IF TYPE = '' THEN TYPE = 'F'
  13. IF FN = '' THEN SIGNAL BAD
  14. SAY 'CHECKING FOR 'FN
  15. RC = SysFileTree(FN, 'FILE', TYPE)
  16. OK = RC
  17. IF FILE.0 = 0 THEN OK = 1
  18. EXIT OK
  19.  
  20. BAD:
  21. SAY 'SYNTAX:  CALL EXIST [fn | dir] type         type = D (dir) -or- F (file)'
  22. EXIT 2
  23.