:InPath [In]Path [Out]0/1SETLOCALSET LocalPathCopy=%PATH%SET Result=0:WHILEIF "%LocalPathCopy" == "" GOTO WENDFOR /F "delims=;" %%I IN ("%LocalPathCopy%") DO (  IF /I "%%~I" == "%~1" (    SET Result=1    GOTO WEND  ))FOR /F "delims=; tokens=1,*" %%I IN ("%LocalPathCopy%") DO (  SET LocalPathCopy=%%~J)GOTO WHILE :WEND :InPathRetENDLOCAL & SET %2=%Result% & GOTO :EOF

SET x=C:/WindowsCall :InPath %x% ResultIF %Result% == 0 SET Path=%Path%;%x%