Ms-Dos - Bat para copiar archivos y me genere un txt de los archivos que no encontro

@ echo off

color 02

echo                           Generacion Imagenes

copy  D:\Origen\2018\Imagen1.tif   "C:\Destino\Imagen\"

copy  D:\Origen\2018\Imagen2.tif   "C:\Destino\Imagen\"

copy  D:\Origen\2018\Imagen3.tif   "C:\Destino\Imagen\"

Pause

@ echo off

color 02

echo                           Generacion Imagenes

For %a in (1 2 3) do Call Copia %%a

Pause

goto :EOF

:Copia

   Set IMAGEN=imagen%1

   if not exist D:\Origen\2018\%IMAGEN%.tif goto Falta

      copy  D:\Origen\2018\%IMAGEN%.tif   "C:\Destino\Imagen\"

      goto :eof

:Falta

   Type nul >C:\Destino\Imagen\%IMAGEN%.txt

   goto :eof

@ echo off

color 02

echo                           Generacion Imagenes

For %a in (imagen1 imagen2 imagen3) do Call Copia %%a

Pause

goto :EOF

:Copia

   Set IMAGEN=%1

   if not exist D:\Origen\2018\%IMAGEN%.tif goto Falta

      copy  D:\Origen\2018\%IMAGEN%.tif   "C:\Destino\Imagen\"

      goto :eof

:Falta

   Type nul >C:\Destino\Imagen\%IMAGEN%.txt

   goto :eof

@echo off

set Repositorio=R:\Repos

set Copia_Fotos=C:\Copia

set Orig=C:\Tmp\Lista_Orig.txt

set Dest=C:\Tmp\Lista_Dest.txt

DIR %Repositorio%\*.* /B /ON >%Orig%

DIR %Copia_Fotos%\*.* /B /ON >%Dest%

FC %Orig% %Dest% >nul 2>&1

IF %ErrorLevel% EQU 1 goto Diferencias

   echo.

   echo. El origen y la copia son iguales

   echo.

   del %Orig%

   del %Dest%

   goto :EOF

:Diferencias

   echo.

   echo.!!! AVISO ¡¡¡  Se han detectado diferencias

   echo.

   echo.

   echo. Pulse una tecla para ver las diferencias

   pause

   FC %Orig% %Dest% | more

   goto :EOF

set Repositorio=R:\Repos\*.*

set Copia_Fotos=C:\Copia\.

XCopy %Repositorio% %Copia_Fotos% /Y /M

set Repositorio=R:\Repos\*.*

set Copia_Fotos=C:\Copia\.

XCopy %Repositorio% %Copia_Fotos%  /M >C:\tmp\Copia_Bien.txt 2>C:\tmp\Copia_Mal.txt

set Repositorio=R:\Repos\*.*

set Copia_Fotos=C:\Copia\.

XCopy %Repositorio% %Copia_Fotos%  /M >C:\tmp\Copia.txt 2>&1

      # --- guarda el nombre del fichero

    { file=$0

      # -- Si tiene el directorio lo elimina del nombre

      if(index($0,"\\") > 0) {

          for(a=length($0); a>1; a--) {

              if(substr($0,a,1) == "\\" ) { file=substr($0,a+1); break }

          }

      }

    }

    # --- Procesa el fichero Origen

    # --- Guarda en una tabla todos ficheros del origen

FILENAME == ARGV[1] { tabla[file] ; next }

    # --- Procesa el fichero Destino

    # --- Elimina de a tabla los ficheros del destino

FILENAME == ARGV[2] { if(file in tabla) delete tabla[file] }

    # --- Final del los ficheros

    # --- Imprime los ficheros de la tabla que no han siro eliminados

END { for(a in tabla) printf("%s\n",a) }

@echo off

set Orig=C:\Tmp\Leo\Lista_Orig.txt

set Dest=C:\Tmp\Leo\Lista_Dest.txt

set Falt=C:\Tmp\Leo\Lista_Falta.txt

mawk -f compara.awk %Orig% %Dest% >%Falt%

echo.

echo.La lista de ficheros que no se han copiado esta en el fichero:

echo.

echo.   %Falt%

echo.

echo.

@mawk  -f compara.awk  Lista_Orig.txt  Lista_Dest.txt  >Lista_Falta.txt