| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1861/CST1861/menu0830/ |
Upload File : |
@echo off
cls
setlocal ENABLEDELAYEDEXPANSION
set _answers="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
:again
echo.
echo Which part of the path do you want to remove.
echo.
set _answer=0
set _choices=
for /f "tokens=1,* delims=;" %%p in ("%path%") do call:parsePath "%%p" "%%q"
set _choices=%_choices%x
ECHO X) eXit
echo %_choices%
choice /c:%_choices% /n /m "Select one of the above: "
echo %errorlevel% %_answer%
goto:EOF
goto:answer%errorlevel%
echo I should not be here!
goto:again
:parsePath
set /a _answer += 1
set _choices=%_choices%!_answers:~%_answer%,1!
echo !_answers:~%_answer%,1!) %~1
::echo %2
if NOT "%~2"=="" for /f "tokens=1,* delims=;" %%p in ("%~2") do call:parsePath "%%p" "%%q"
goto:EOF