Ms-Dos - Copiar archivos

@echo off

:

:---&---- Aquí pondremos despúes del igual el directorio origen

:

SET Orig=

:

:---&---- Aquí pondremos despúes del igual el directorio Destino

:

SET Dest=

cd /D %Orig%

IF not exist FICHERO.TXT GOTO :Falta

FOR %%a in (*.*) do Call:Copiar %%a

GOTO:EOF

:Copiar

   findstr /i %1 FICHERO.TXT >nul 2>nul

   If ERRORLEVEL EQU 0 copy %1 %Dest%

   GOTO:EOF

:Falta

   echo no encuentro: FICHERO.TXT

   GOTO:EOF

@echo off

:

:---&---- Aquí pondremos despúes del igual el directorio origen

:

SET Orig=C:\Mis_Imagenes

:

:---&---- Aquí pondremos despúes del igual el directorio Destino

:

SET Dest=C:\Mis_Copias

cd /D %Orig%

IF not exist FICHERO.TXT GOTO :Falta

FOR /F %%a in (FICHERO.TXT) do IF Exist %%a copy %%a %Dest%

GOTO:EOF

:Falta

   echo no encuentro: FICHERO.TXT

   GOTO:EOF