@echo off & setlocal enableextensions
  ::
  set TargetFolder=C:\Whatever
  if not exist "%TargetFolder%" (
    echo Target folder "%TargetFolder%" not found
    goto :EOF)
  ::
  :: Get the date elements (see FAQ Item #1)
  :: The date presentation assumes DD.MM.YYYY (else customize)
  for /f "tokens=1-3 delims=./-" %%a in ("%date%") do (
    set dd_=%%a
    set mm_=%%b
    set yyyy_=%%c)
  set dd_=0%dd_%
  set dd_=%dd_:~-2%
  set xcdate_=%mm_%-%dd_%-%yyyy_%
  ::
  :: Test the copying. When done, remove the test switch /L
  :: Customize the target s:\
  for /f "tokens=*" %%d in ('dir "C:\*.*" /s /b /a:-d-s-h') do (
    xcopy /L /p /v /f /d:%xcdate_% "%%~fd" "%TargetFolder%\"
    )
  endlocal & goto :EOF

  @echo off & setlocal enableextensions disabledelayedexpansion
  ::
  :: Where to start from? Some options to customize!
  set MyRoot=%USERPROFILE%\My Documents
  set MyRoot=C:\_F
  if not exist "%MyRoot%\" (
    echo Start folder "%MyRoot%" not found
    goto :EOF)
  ::
  if not "%1"=="" goto _ask
  :: The usage help
  :: Note below the need of the escape character (^) because
  :: parentheses are special characters
  echo.
  echo Usage: %~f0 SinceDateAs:YYYYMMDD [SinceTimeAs:HHMN]
  echo.
  echo For example: %~f0 20031116 0900
  echo              %~f0 today 0900
  echo              %~f0 today ^(the time defaults to 00:00^)
  echo.
  echo Careful, minimal error checking!
  goto :EOF
  ::
  :_ask
  echo This might take some time.
  :_ask2
  set ask_=
  set /p ask_="Run anyway [Y/n]?"
  if /i "%ask_%"=="n" goto :EOF
  if not "%ask_%"=="" if /i not "%ask_%"=="y" goto _ask2
  ::
  :: Get today's date elements
  :: The date presentation assumes DD.MM.YYYY (else customize)
  set dd_=%date:~0,2%
  set mm_=%date:~3,2%
  set yyyy_=%date:~6,4%
  ::
  :: Process the user's parameters
  set cutdate_=%1
  if /i "%cutdate_%"=="today" set cutdate_=%yyyy_%%mm_%%dd_%
  if "%2"=="" (
    set cutime_=0000
    ) ELSE (
    set cutime_=%2)
  ::
  :: Do some trivial parameter checking (optional)
  set ParamError=
  if "%cutdate_:~7,1%"=="" set ParamError=true
  echo %cutdate_%|findstr "[^0-9]">nul
  if %errorlevel% EQU 0 set ParamError=true
  if "%cutime_:~3,1%"=="" set ParamError=true
  echo %cutime_%|findstr "[^0-9]">nul
  if %errorlevel% EQU 0 set ParamError=true
  if defined ParamError (
    echo Error in the parameters %cutdate_% %cutime_%
    goto :EOF)
  ::
  :: Traverse the folder trees
  if exist "%temp%\TODAY.DIR" del "%temp%\TODAY.DIR"
  echo Date     Time       Size Name
  for /f "tokens=*" %%f in (
    'dir "%MyRoot%\*.*" /s /b /-c /a:-d-s-h') do (
    call :ListFileIfSince "%%~ff"
    )
  ::
  :: Display the results optionally redirected to "%temp%\TODAY.DIR"
  sort "%temp%\TODAY.DIR"| more
  ::
  :: Delete the results file if you so wish
  del /p "%temp%\TODAY.DIR"
  ::
  endlocal & goto :EOF
  ::
  :: ====================================================================
  :: Subroutine: Get the file's information and compare the datetimestamp
  :ListFileIfSince
  setlocal enableextensions disabledelayedexpansion
  set filename_=%1
  for %%a in (%filename_%) do (
    set fdate_=%%~tf
    set fattr_=%%~af
    set fsize_=%%~zf
    )
  call :RightJustify10 %fsize_% fsize_
  for /f "tokens=1-5 delims=./-: " %%a in ("%fdate_%") do (
    set fdd_=%%a
    set fmm_=%%b
    set fyyyy_=%%c
    set fhh_=%%d
    set fmn_=%%e
    )
  if %fyyyy_%%fmm_%%fdd_% LSS %cutdate_% goto :EOF
  if %fyyyy_%%fmm_%%fdd_% EQU %cutdate_% if %fhh_%%fmn_% LSS %cutime_% goto :EOF
  >>"%temp%\TODAY.DIR" echo %fyyyy_%%fmm_%%fdd_% %fhh_%%fmn_% %fsize_% %filename_%
  endlocal & goto :EOF
  ::
  :: =========================================================
  :: Subroutine: Pad a string to always be ten characters long
  :RightJustify10 number_ return_
  setlocal enableextensions disabledelayedexpansion
  set number_=         %1
  set return_=%number_:~-10%
  endlocal & set "%~2=%return_%" & goto :EOF

  for /f "tokens=*" %%f in (
    'dir "%MyRoot%\*.*" /s /b /-c /a:-d-s-h') do (
    call :ListFileIfSince "%%~ff"
    )

  for /f "tokens=*" %%f in (
      'dir "C:\_D\*.*"
      "C:\_E\*.*"
      "C:\_F\*.*"
      "C:\_G\*.*"
      "C:\_H\*.*"
      "C:\_L\*.*"
      /s /b /-c /a:-d-s-h') do (
    call :ListFileIfSince "%%~ff"
    )

  @echo off & setlocal enableextensions
  forfiles -p"C:\_D\TEST" -m"*.*" -d+12042009 -c"cmd /c echo @FDATE @PATH\@FILE"
  endlocal & goto :EOF

  @echo off & setlocal enableextensions
  forfiles -p"C:\_D\TEST" -m"*.*" -d-100 -c"cmd /c echo @FDATE @PATH\@FILE"
  endlocal & goto :EOF