UnRar - .rar entpacken, umbennen, verschieben und löschen

@ECHO Off &SETLOCAL disableDelayedExpansion

set "UnRar=F:\Dir1\Dir2\Dir3\Dir4\unrar.exe"  

for %%i in ("%~1") do set "DateimE=%%~nxi"  
for %%i in ("%~1\..") do set "Name=%%~nxi"  
for %%i in ("%~1\..\..") do set "Directory=%%~nxi"  

if %Directory%==Verz1 goto UNRAR
if %Directory%==Verz2 goto UNRAR
if %Directory%==Verz3 goto UNRAR
if %Directory%==Verz4 goto UNRAR
if %Directory%==Verz5 goto UNRAR
if %Directory%==Verz6 goto UNRAR
if %Directory%== goto End
goto End

:UNRAR
for %%a in ("%~dp1*.rar") do for /f "delims=" %%b in ('%UnRar% lb "%%~Fa"') do (  
    %UnRar% e -o+ -idq "%%a" "%~dp1" -ep -x@  
	ren "%~dp1%%b" "%~dp1%Name%%%~xb"  
	echo /s /q  %~dp1
)
goto End

:End
exit