Ms-Dos - Bat busqueda por fecha, copia y pega.

@echo off

SET /P DISCO=INTRODUCE FILTRO DISCO DONDE BUSCAR (EJEM. C:\ ):

SET /P EXTENSION=INTRODUCE FILTRO EXTENSION (EJEM.  *.bat ):

SET /P FECHA=INTRODUCE FILTRO FECHA(EJEM.   31/05/1998 ):

SET /P CARPETA=INTRODUCE NOMBRE CARPETA PARA LA COPIA DE ARCHIVOS:

IF NOT EXIST "%cd%\%CARPETA%" MD "%cd%\%CARPETA%"

FOR /R "%DISCO%" %%A in (%EXTENSION%) DO (if exist %%A set ruta=%%A&set fech=%%~tA&SET ARCHI=%%~nxA&CALL :ENCONTRADO)

ECHO BUSQUEDA COMPLETA...

START "" /MAX "%cd%\%CARPETA%"

PAUSE

EXIT

:ENCONTRADO

echo buscando....espere.....

set fech=%fech:~0,10%

if %fech% equ %FECHA% (ECHO %ruta%...%fech%&COPY "%ruta%" "%cd%\%CARPETA%\%ARCHI%">nul 2>&1)