...Start....DoADP.BAT........................
@echo off
for /f "tokens=*" %%i in ('cd') do set DoADP=%%i
for /f "tokens=1 delims=:" %%i in ('cd') do set DoADRIVE=%%i:
for /f "tokens=2 delims=:" %%i in ('cd') do set DoAPATH=%%i
...End......DoADP.BAT........................
...Start....DoATOP.BAT........................
@echo off
for /f "tokens=1 delims=:" %%i in ('cd') do set DoATOP=%%i:\
for /f "tokens=2 delims=" %%i in ('cd') do set DoATOP=%DoATOP%%%i
...End......DoATOP.BAT........................
...Start....DoAUPLVL.BAT........................
@echo off
call DoAdp
call DoAtop
set DoAup=%DoAtop%
if "%DoAdp%"=="%DoAtop%" set DoAup=%DoAdrive%\
if "%DoAup%"=="%DoAdrive%" goto end
call DoAPARSE 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
:end
...End......DoAUPLVL.BAT........................
...Start....DoAPARSE.BAT........................
:loop
set DoAupw=%DoAup%
if "%DoAdrive%"=="%DoAup%" goto end
for /f "tokens=%1* delims=" %%i in ('cd') do call DoAparm %%i %%j
shift
if "%DoAupw%"=="%DoAup%" goto end
if not "%1"=="" goto loop
:end
set DoAupw=
...End......DoAPARSE.BAT........................
...Start....DoAPARM.BAT........................
@echo off
if "%2"=="" goto end
set DoAup=%DoAup%\%1
:end
...End......DoAPARM.BAT........................
...Start....DoAWALK.BAT........................
@echo off
call DoAdp
:loop
call DoAuplvl
cd %DoAup%
call %1
if "%DoAup%"=="%DoAdrive%" goto end
goto loop
:end
...End......DoAWALK.BAT........................