home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / 4dpath.exe / DELPATH.BTM < prev    next >
Encoding:
Text File  |  1992-10-05  |  703 b   |  27 lines
  1. @echo off^goto start
  2. :help
  3. echo.
  4. echo    %@upper[%0] -- Removes given path from the PATH variable.
  5. echo.
  6. echo    Usage: %@upper[%0] `<`path`>`
  7. echo.
  8. echo    See also ADDPATH.
  9. return
  10.  
  11. :start
  12. if "%debug" eq "%0" echo on
  13. if "%1" eq "" .or. "%1" eq "/?" (gosub help^quit 0)
  14.  
  15. iff %@index[%path;,%@full[%1];] ne -1 then
  16.  set delpath_b=%@index[%path;,%@full[%1];]
  17.  set delpath_e=%@eval[%delpath_b+%@len[%@full[%1];]]
  18.  if %delpath_e ge %@len[%path] set delpath_b=%@eval[%delpath_b-1]
  19.  set path=%@substr[%path,0,%delpath_b]%@substr[%path,%delpath_e]
  20.  unset delpath_b delpath_b >&> nul
  21.  quit 0
  22. else
  23.  if %_batch eq 1 echo %@upper[%0]: Directory %@full[%1] not in `%`PATH.
  24.  quit 1
  25. endiff
  26.  
  27.