Ms-Dos - Copiar archivo, y si existe, renombrarlo

cls

set UNO=%1

Set DOS=C:\Users\usuario\Desktop\Nueva\

Set TRES=%~n1%~x1

Set CUATRO=%~P1 (RUTA CORTA SIN NOMBRE)

Set EXTENSION=%~x1

If exist "%DOS%%TRES%" (

Cls

COLOR C

   echo Duplicado

   pause

GOTO AQUI

) ELSE (

cls

copy "%UNO%" "%DOS%"

   pause

Cls

COLOR A

Echo Copiado con exito

Pause

Exit

)

:AQUI

ECHO ****************************

ECHO * 1.- Renombrar

ECHO * 2.- Salir

ECHO ****************************

CHOICE /C 12

IF ERRORLEVEL 2 GOTO SALIR

IF ERRORLEVEL 1 GOTO RENOMBRAR

:RENOMBRAR

cls

COLOR A

Echo RENOMBRAR:

Set/P NOMBRE=Nuevo nombre:

	iF EXIST "%DOS%%NOMBRE%%EXTENSION%" (

	Echo "Ya existe. Prueba otro nombre")

	ELSE (

	ren "%DOS%%TRES%" "%NOMBRE%%EXTENSION%"

	pause

	exit )

:SALIR

cls

COLOR B

Echo Saliendo.......

pause

@echo off

cls

set File_a_copia=%1

Set Direc_Destino=C:\Users\usuario\Desktop\Nueva\

Set Origen_Nomb=%~n1

Set Origen_Exte=%~x1

:Inicio

   If exist "%Direc_Destino%%Origen_Nomb%%Origen_Exte%" (

      cls

      color C

      echo Duplicado

      pause

      goto AQUI

   ) else (

      cls

      copy "%File_a_copia%" "%Direc_Destino%%Origen_Nomb%%Origen_Exte%"

      pause

      cls

      color A

      echo Copiado con exito

      pause

      color 7

      goto :EOF

   )

:AQUI

   ECHO ****************************

   ECHO * 1.- Renombrar

   ECHO * 2.- Salir

   ECHO ****************************

   ECHO.

   CHOICE /C 12

   IF ERRORLEVEL 2 GOTO SALIR

   IF ERRORLEVEL 1 GOTO RENOMBRAR

:RENOMBRAR

   cls

   color A

   Echo RENOMBRAR:

   Set /P Origen_Nomb=Nuevo nombre sin extension:

   goto Inicio

:SALIR

   cls

   color B

   Echo Saliendo.......

   color 7

   pause

@echo off

cls

set File_a_copia=%1

Set Direc_Destino=C:\Users\usuario\Desktop\Nueva\

Set Origen_Nomb=%~n1

Set Origen_Exte=%~x1

Echo.File Copia.: ( %File_a_Copia% )

echo.

echo.Nombre.....: ( %Origen_Nomb% )

echo.

echo.Extension..: ( %Origen_Exte% )

echo.

pause

File a Copia.: ( "C:\Win_Save_Cron\Win Save Cron.exe" )

Nombre.......: ( Win Save Cron )

Extension....: ( .exe )

Presione una tecla para continuar . . .