Codigo Comprimidor y descomprimidor de archivos .rar

@echo off
color 04
title "Descomprimidor Winrar "
if exist "%programfiles%\winrar\rar.exe" (cd /d "%programfiles%\winrar
copy /y "rar.exe" "%windir%\system32") else (echo no se ha encontrado rar.exe es necesario para que el programa funciones tiene que estar en la carpeta system32 para poder usar el programa
set /p sis=arrastre hasta aquí el archivo rar.exe;
copy /y "%sis%" "%windir%\system32")
:ini
cd "%~pd0"
if not exist "archivos creados" (md "archivos creados")
echo opciones
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º1 comprimir archivos º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º2 descomprimir archivos º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /p op=elige una opción:
if %op%==1 (goto :com)
if %op%==2 (goto :des)
::-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
:com
cls
set /p n=como se llama el archivo que quieres crear, pon la extensión .rar;
cls
set /p arr=arrastra hasta aquí el archivo;
cls
set /p con=quieres poner contraseña?;
if /i %con%==si ( set /p con2=escribe la contraseña;
cd "%~pd0"
start winrar.exe a -ep1 -p%con2% "archivos creados\%n%" %arr%
echo listo
pause)
cd "%~pd0"
start winrar.exe a -ep1 "archivos creados\%n%" %arr%
echo archivo creado
pause>nul
set /p qui=quieres hacer otra operación?;
if %qui%==si (goto :ini)
exit
::-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
:des
set /p desa=arrastra el archivo a descomprimir aquí;
cls
echo elige o ingresa un directorio para descomprimir el archivo
echo 1 escritorio
echo 2 mis documentos
set /p op=elige o ingresa un directorio sin comillas;
if %op%==1 (set "di=%userprofile%\escritorio")
if %op%==2 (set "di=mis documentos")
set /p ti=tiene contraseña?;
if /i %ti%==si (set /p co=ingresa la contraseña;
start winrar.exe x -p%co% %desa% "%di%")
start winrar.exe x %desa% "%di%"
set /p qui=quieres hacer otra operación?;
if %qui%==si (goto :ini)
exit