@echo off
color 0a
cd %programfiles%\WinRAR
if exist %programfiles%\WinRar\Unrar.exe (
goto :ExtraccionRAR
) else (
msg * No existe la herramienta necesaria para la extraccion de archivos .rar ...
goto:EOF
)
 
:ExtraccionRAR
cls
set /p File=Escriba la ruta de su archivo .rar a extraer : 
if ["%file%"]==[""] (
cls
echo                              No has puesto nada!
ping -n 2 127.0.0.1>nul
goto:ExtraccionRAR
)
unrar x -c- -y -o+ -id %file%
if %errorlevel%==1 (
cls
msg * El archivo no se pudo extraer!
goto:EOF
) else (
cls
msg * Archivo extraido correctamente, en %programfiles%\WinRAR
goto:ExtraccionRAR
)