@echo off

set BASE=%~dp0

set DIR_RESULT=
for /f "usebackq tokens=*" %%i in (`where %1 2^> nul`) do (
set DIR_RESULT=%%~dpi
goto :break
)
:break

if not "%DIR_RESULT%" == "" echo %DIR_RESULT%
if "%DIR_RESULT%" == "" echo Can't find %1.