Ms-Dos - Problema Errorlevel

@echo off

if exist "C:\NEWFOLDER\Fichero.exe"  goto Mensaje1

:Mensaje1

RENAME C:\NEWFOLDER\Fichero.exe Fichero1.exe.

if errorlevel 1 goto Error1

:Error1

start ErrorRen.vbs

rem El Script ErrorRen está en el mismo directorio que el BAT

EXIT

@echo off

if exist Fichero.exe goto Mensaje1

# ---  Y si no esiste hace lo mismo para eso no hace falta verificar

:Mensaje1

RENAME Fichero.exe Fichero1.exe

echo %ERRORLEVEL%

if %ERRORLEVEL% EQU 1 goto Error1

 # --- Si el valor de %ERRORLEVEL% es igual a CERO ¿Que hace? 

:Error1

start ErrorRen.vbs

rem El Script ErrorRen

@echo off

IF EXIST Fichero.exe  RENAME Fichero.exe Fichero1.exe

 ...

echo %ERRORLEVEL%

if %ERRORLEVEL% EQU 1 goto Error1

 # --- Si el valor de %ERRORLEVEL% es igual a CERO ¿Que hace? 

:Error1

start ErrorRen.vbs

rem El Script ErrorRen

@echo off

ECHO.

ECHO.

ECHO.     Va a renombrar OCX y DLL

ECHO.     ________________________

ECHO.

ECHO.

ECHO.

ECHO.     msvbvm60.dll            isButton.ocx                    AlphaImageControlIn.ocx

ECHO.

ECHO.     FrameImg.ocx            LaVolpeShapes.ocx       BCTBalloonToolTip.ocx

ECHO.

ECHO.     -------------------------------------------------------------------------

ECHO.

ECHO.

ECHO.     Si no quiere continuar, cierre esta ventana.

ECHO.

ECHO.     En caso contrario, lee las instrucciones.

ECHO.

ECHO.

ECHO.   - INSTRUCCIONES:

ECHO.

          if exist "C:\Windows\SysWOW64\msvbvm60.dll"  goto Mensaje1

          if not exist "C:\Windows\SysWOW64\msvbvm60.dll"  goto Mensaje2

ECHO.

ECHO.

ECHO.

:Mensaje1

ECHO.

ECHO.     Las DLL y OCX van a ser renombradas con XXX

ECHO.

ECHO.

ECHO.

PAUSE

RENAME C:\Windows\SysWOW64\msvbvm60.dll XXXmsvbvm60.dll

RENAME C:\Windows\SysWOW64\isButton.ocx XXXisButton.ocx

RENAME C:\Windows\SysWOW64\AlphaImageControlIn.ocx XXXAlphaImageControlIn.ocx

RENAME C:\Windows\SysWOW64\FrameImg.ocx XXXFrameImg.ocx

RENAME C:\Windows\SysWOW64\LaVolpeShapes.ocx XXXLaVolpeShapes.ocx

RENAME C:\Windows\SysWOW64\BCTBalloonToolTip.ocx XXXBCTBalloonToolTip.ocx

 echo %ERRORLEVEL%

 if %ERRORLEVEL% EQU 1 goto Error1

 :Error1

 msg * No se ha podido renombrar con XXX algunos Controles OCX y DLL

exit

:Mensaje2

ECHO..

ECHO.     Las DLL y OCX van a ser renombradas con su nombre original

ECHO.

ECHO.

ECHO.

PAUSE

RENAME C:\Windows\SysWOW64\XXXmsvbvm60.dll msvbvm60.dll

RENAME C:\Windows\SysWOW64\XXXisButton.ocx isButton.ocx

RENAME C:\Windows\SysWOW64\XXXAlphaImageControlIn.ocx AlphaImageControlIn.ocx

RENAME C:\Windows\SysWOW64\XXXFrameImg.ocx FrameImg.ocx

RENAME C:\Windows\SysWOW64\XXXLaVolpeShapes.ocx LaVolpeShapes.ocx

RENAME C:\Windows\SysWOW64\XXXBCTBalloonToolTip.ocx BCTBalloonToolTip.ocx

echo %ERRORLEVEL%

if %ERRORLEVEL% EQU 1 goto Error1

:Error1

msg * No se ha podido renombrar algunos Controles OCX y DLL

exit

if %ERRORLEVEL% EQU 1 goto Error1

:Error1

msg * No se ha podido renombrar algunos Controles OCX y DLL

exit

if %ERRORLEVEL% EQU 1 goto Error1

                      EXIT

:Error1

msg * No se ha podido renombrar algunos Controles OCX y DLL

exit

IF %ERRORLEVEL% EQU 1 msg * No se ha podido renombrar algunos Controles OCX y DLL

EXIT