Ms-Dos - Buscar y copiar archivos de diferentes subdirectorios

@echo off

SET LIS=C:\Tmp\Lista.txt

SET TMP=C:\Tmp\Trabajo.bat

TYPE nul >$Tmp%

cd \Prados

FOR /F %%a in (%Lis%) do dir %%a /S /B >>%Tmp%

FOR /F %%a in (%Tmp%) do copy %%a C:\Prados\1\.

del %Tmp%

@echo off

SET LIS=C:\Tmp\Lista.txt

SET TMP=C:\Tmp\Trabajo.bat

TYPE nul >%Tmp%

CD \Prados

FOR /F "delims=*" %%a in (%Lis%) do dir  "%%a" /S /B >>%Tmp%

FOR /F "delims=*" %%a in (%Tmp%) do copy "%%a" C:\Prados\1\.

del %Lis%

del %Tmp%

@echo off

SET Lis_1=C:\Tmp\Lista_1.txt

SET Lis_2=C:\Tmp\Lista_2.bat

TYPE nul >%Tmp%

CD \Prados

FOR /F "delims=*" %%a in (%Lis_1%) do dir  "%%a" /S /B >>%Lis_2%

FOR /F "delims=*" %%a in (%Lis_2%) do copy "%%a" C:\Prados\1\.

del %Lis_1%

del %Lis_2%

CD \Prados

DIR /S /B >Lista_3.txt

@echo off

SET Lis_1=Lista_1.txt

SET Lis_2=Lista_2.txt

TYPE nul >%Lis_2%

CD \Prados

FOR /F "delims==" %%a in (%Lis_1%) do dir  "%%a" /S /B >>%Lis_2%

FOR /F "delims=*" %%a in (%Lis_2%) do copy "%%a" C:\Prados\1\.  /y >nul

@echo off

SET Lis_1=Lista_1.txt

SET Lis_2=Lista_2.tx

TYPE nul >%Lis_2%

CD /D "F:\escaner\TAL2\AMAZON PRADOS"

FOR /F "delims==" %%a in (%Lis_1%) do dir  "%%a" /S /B >>%Lis_2%

FOR /F "delims=*" %%a in (%Lis_2%) do copy "%%a" C:\Prados\1\.  /y >nul