home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / dc.cmd < prev    next >
OS/2 REXX Batch file  |  1993-12-13  |  1KB  |  43 lines
  1. /*   DC         */
  2. "@Echo off"
  3. trace off
  4. call RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree'
  5. ANS = 1
  6. /*-------------------------------------------------------------------*/
  7.  
  8. DO WHILE ANS <> 0 & ANS <> ' '
  9.    'CLS'
  10.    CALL GET_DIRs
  11.    SAY ' '
  12.    SAY '---' DIRECTORY() '---'
  13.    SAY '0 EXIT'
  14.    DO J = 1 TO FULL_DIR.0
  15.       SAY J DIR.J
  16.       END
  17.    PULL ANS
  18.    IF ANS > 0 & ANS < (FULL_DIR.0 + 1)
  19.       THEN 'CD 'DIR.ANS
  20.    END
  21. 'cls'
  22. 'DIR /W | find /v "olume"'
  23. EXIT
  24.  
  25. /*-------------------------------------------------------------------*/
  26.  
  27. GET_DIRs:
  28. RC = SysFileTree('*.*',FULL_DIR,D)
  29. DO I = 1 TO FULL_DIR.0
  30.    J = I + 1
  31.    PARSE UPPER VALUE FULL_DIR.I WITH . . . . DIR.J .
  32.    END
  33. DIR.1 = '..'
  34. FULL_DIR.0 = FULL_DIR.0 + 1
  35. DO I = 2 TO FULL_DIR.0
  36.    PARSE VALUE DIR.I WITH A.1 '\' A.2 '\' A.3 '\' A.4 '\' A.5 '\' A.6 '\' A.7 '\' A.8 '\' A.9 '\' A.10
  37.    DO J = 1 TO 10
  38.       IF A.J <> '' THEN DIR.I = A.J
  39.       END
  40.    END
  41. RETURN
  42. /*-------------------------------------------------------------------*/
  43.