home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / 4dpath.exe / ADDPATH.BTM next >
Text File  |  1992-10-05  |  711b  |  29 lines
  1. @echo off^goto start
  2. :help
  3. echo.
  4. echo    %@upper[%0] -- Adds given path to the PATH variable.
  5. echo.
  6. echo    Usage: %@upper[%0] `<`path`>`
  7. echo.
  8. echo    Given path is added as the first path in the `%`PATH variable.
  9. echo    Parameter must be an existing directory not in `%`PATH yet.
  10. echo    See also DELPATH.
  11. return
  12.  
  13. :start
  14. if "%debug" eq "%0" echo on
  15. if "%1" eq "" .or. "%1" eq "/?" (gosub help^quit 0)
  16.  
  17. iff isdir %1 then
  18.  iff %@index[%path%;,%@full[%1];] eq -1 then
  19.   set path=%@full[%1];%path
  20.   quit 0
  21.  else
  22.   if %_batch eq 1 echo %@upper[%0]: Directory %@full[%1] already in `%`PATH!
  23.   quit 0
  24.  endiff
  25. else
  26.  if %_batch eq 1 echo %@upper[%0]: Invalid directory "%1"
  27.  quit 1
  28. endiff
  29.