Ms-Dos - MOSTRAR LISTA DE CARPETAS QUE TENGAN ARCHIVOS CON FECHA DE UN DIA POR CMD

For %%a in ("1,2,3") do (

echo %a%

)

pause

@echo off

SET Home=%CD%

DIR /S /B /A:D >Direc.tmp

FOR /F "delims=*" %%a in (Direc.tmp) do Call :Files "%%a"

CD %Home%

del Direc.tmp

goto :EOF

:Files

    set Dir=%1

    set Dir=%Dir:~1,-1%

    set SW=0

    cd "%Dir%"

    for %%b in (*.*) do call :Validar %%~tb

    cd %Home%

    goto :EOF

:Validar

    if %1 == %Date% goto :EOF

    if %SW% == 1    goto :EOF

    set SW=1

    echo %Dir%

@echo off

SET Home=%CD%

rem DIR /S /B /A D:\ejemplo

FOR /F "delims=*" %%a in ('Dir  /b  /A D:\ejemplo') do Call :Files "%%a"

CD %Home%

rem del Direc.tmp

goto :EOF

:Files

    set Dir=%1

    set Dir=%Dir:~1,-1%

    set SW=0

    cd "%Dir%"

    for %%b in (*.*) do call :Validar %%~tb

    cd %Home%

    goto :EOF

:Validar

    if %1 == %Date% goto :EOF

    if %SW% == 1    goto :EOF

    set SW=1

    echo %Dir%

	pause

@echo off

CD /D d:\ejemplo

set Home=%CD%

DIR /S /B /A:D >%Temp%\Direc.tmp

FOR /F "delims=*" %%a in (%Temp%\Direc.tmp) do Call :Files "%%a"

CD /D %Home%

DEL %Temp%\Direc.tmp

goto :EOF

:Files

    set Dir=%1

    set Dir=%Dir:~1,-1%

    set SW=0

    CD /D "%Dir%"

    FOR %%b in (*.*) do call :Validar %%~tb

    CD /D %Home%

    goto :EOF

:Validar

    if %1 == %Date% goto :EOF

    if %SW% == 1    goto :EOF

    set SW=1

    echo %Dir%

: --- hace que no se vean los comando ni el mismo al ejecutar

@echo off

: --- Cambia de directorio. El parametro /D es para cambiar de disco

CD /D d:\ejemplo

: --- Guarda directorio actual

set Home=%CD%

: --- Crea un fichero con la estructutra de directorios que cuelgan de la

:     posicion actual y lo guarda en un fichero temporal.

:     Cada linea es una ruta complerta desde la raiz, es decir desde D:\

DIR /S /B /A:D >%Temp%\Direc.tmp

: --- Lee el fichero temporal y para cada linea llama a la etiqueta Files

:     Pasa como parametro la ruta leida

FOR /F "delims=*" %%a in (%Temp%\Direc.tmp) do Call :Files "%%a"

: --- Se coloca en el directorio de inicio, en este caso D:\EJEMPLO

CD /D %Home%

: --- Borra el fichero temporal creado con el DIR

DEL %Temp%\Direc.tmp

: --- Finaliza el BAT

goto :EOF

:Files

    : --- Guarda el la variable DIR la ruta

    set Dir=%1

    : --- Le quita las comollas. Ver en la linea del  FOR "%%a"

    set Dir=%Dir:~1,-1%

    : --- Variable para mostrar solo una vez el nombre del directorio

    set SW=0

    : --- Cambia al nuevo directorio

    CD /D "%Dir%"

    : --- Lee todos los ficheros. Llama a la etiqueta Validar y le pasa la fecha

    FOR %%b in (*.*) do call :Validar %%~tb

    : --- Se coloca en el directorio de inicio, en este caso D:\EJEMPLO

    CD /D %Home%

    : --- Regresa al FOR

    goto :EOF

:Validar

    : --- Si la fecha es la misma del sistema sale

    if %1 == %Date% goto :EOF

    : --- Si ya mostro el directorio sale

    if %SW% == 1    goto :EOF

    : --- Casmbia el valor de SW

    set SW=1

    : --- Muestra el nombre del directorio

    echo %Dir%

    : --- Regresa al FOR

C:\> CD /D D:\Ejemplo

D:\Ejemplo> DIR /S /B /A:D

: --- hace que no se vean los comando ni el mismo al ejecutar

@echo off

echo La fecha actual es: %Date%

: --- Cambia de directorio. El parametro /D es para cambiar de disco

CD /D d:\ejemplo

DIR /S

echo on

: --- Guarda directorio actual

set Home=%CD%

C:> PRUEBA >Trace.txt

echo %Date%

17/12/2019

echo %Date%

ma. 17/12/2019

17/12/2019  11:52    <DIR>          .

17/12/2019  11:52    <DIR>          ..

17/12/2019  11:51    <DIR>          ejemplo2

17/12/2019  12:00    <DIR>          ejemplo3

17/12/2019  11:58    <DIR>          ejemplo4

17/12/2019  11:52 a. m.    <DIR>          .

17/12/2019  11:52 a. m.    <DIR>          ..

17/12/2019  11:51 a. m.    <DIR>          ejemplo2

17/12/2019  12:00 p. m.    <DIR>          ejemplo3

17/12/2019  11:58 a. m.    <DIR>          ejemplo4

@echo off

CD /D d:\ejemplo

set Home=%CD%

DIR /S /B /A:D >%Temp%\Direc.tmp

FOR /F "delims=*" %%a in (%Temp%\Direc.tmp) do Call :Files "%%a"

CD /D %Home%

DEL %Temp%\Direc.tmp

goto :EOF

:Files

    set Dir=%1

    set Dir=%Dir:~1,-1%

    set SW=0

    CD /D "%Dir%"

    FOR %%b in (*.*) do call :Validar %%~tb

    CD /D %Home%

    goto :EOF

:Validar

    if %1 == %Date:~-10% goto :EOF

    if %SW% == 1         goto :EOF

    set SW=1

    echo %Dir%

    goto :EOF

@echo off

CD /D d:\ejemplo

set Home=%CD%

DIR /S /B /A:D >%Temp%\Direc.tmp

FOR /F "delims=*" %%a in (%Temp%\Direc.tmp) do Call :Files "%%a"

CD /D %Home%

DEL %Temp%\Direc.tmp

goto :EOF

:Files

    set Dir=%1

    set Dir=%Dir:~1,-1%

    set SW=0

    CD /D "%Dir%"

    FOR %%b in (*.*) do call :Validar %%~tb

    CD /D %Home%

    goto :EOF

:Validar

    echo %Date% | FindStr %1 >nul 2>&1

    if %ErrorLevel% EQU 0 goto :EOF

    if %SW% == 1          goto :EOF

    set SW=1

    echo %Dir%

    goto :EOF

@echo off

CD /D d:\ejemplo

set Home=%CD%

DIR /S /B /A:D >%Temp%\Direc.tmp

FOR /F "delims=*" %%a in (%Temp%\Direc.tmp) do Call :Files "%%a"

CD /D %Home%

DEL %Temp%\Direc.tmp

echo.

pause

goto :EOF

@echo off

CD /D d:\ejemplo

set Home=%CD%

DIR /S /B /A:D >%Temp%\Direc.tmp

FOR /F "delims=*" %%a in (%Temp%\Direc.tmp) do Call :Files "%%a"

CD /D %Home%

DEL %Temp%\Direc.tmp

goto :EOF

:Files

    set Dir=%1

    set Dir=%Dir:~1,-1%

    echo %Dir% | FindStr /i Prueba >nul 2>&1

    if %ErrorLevel% EQU 0 goto :EOF

    set SW=0

    CD /D "%Dir%"

    FOR %%b in (*.*) do call :Validar %%~tb

    CD /D %Home%

    goto :EOF

:Validar

    echo %Date% | FindStr %1 >nul 2>&1

    if %ErrorLevel% EQU 0 goto :EOF

    if %SW% == 1          goto :EOF

    set SW=1

    echo %Dir%

    goto :EOF

DEL *.*

ECHO S | DEL *.*

DEL *.*  < Conf.txt

DEL *.* 0< Conf.txt

C:\Tmp>echo N | del *.*

C:\Tmp\*.*, ¿Está seguro (S/N)? N

C:\Tmp>del *.* 0<Conf.txt

C:\Tmp\*.*, ¿Está seguro (S/N)? S

C:\Tmp\Cont.txt

El proceso no tiene acceso al archivo porque está siendo utilizado por otro proceso.

echo %Dir% | FindStr /i Prueba >nul 2>nul