A procedure that call a callback for each directory of %PATH%

VisitPATH.cmd

@echo off
:: Copyright © 2011 Olivier Mengué
:: License GNU GPL 3.0

setlocal

call :VisitPATH :Echo
goto :EOF

:Echo
echo.[%~1]
echo %PATH%
goto :EOF

:: VisitPATH
::
:: %1 callback name
::
: == VisitPATH ==
:: Save PATH
set VisitPATH_P=%PATH%
call :VisitPATH_Loop %1 .
goto :EOF

:VisitPATH_Loop
set VisitPATH_Q=%PATH%
:: Find the first "." in the reduced %PATH% => first directory in %PATH%
set PATH=%VisitPATH_P%& call %1 "%~$PATH:2"
set PATH=%VisitPATH_Q:*;=%
if not "%PATH%"=="%VisitPATH_Q%" goto :VisitPATH_Loop

set PATH=%VisitPATH_P%
set VisitPATH_P=
set VisitPATH_Q=
goto :EOF