Zeitstempel von Datei überprüfen und verschieben

:: --snipp GetFileMinutesDemo.bat Parameter1 Filename/File-Wildcards
:: Placed in the Public Domain for Educational Purposes Biber 2006
@echo off & setlocal
call :DateToDays todayInDays %date%    && REM Heutiges Datum  als Ganzzahl
call :TimeToMins todaysMinutes %time%  && REM Minuten sei Mitternacht als Ganzzahl

For %%i in (%1) do call :CompareMinutes %%i %todayInDays% %TodaysMinutes%
goto :eof

~~~~~~~~~~ Ende des Hauptbatches... es folgen geCALLte Unterroutinen

:CompareMinutes Parameter1:Datei; Para2: Heute als Ganzzahl; Para3: Minuten heute seit Mitternacht 

For /f "tokens=1-2" %%a in ("%~t1") do (  
   call :DateToDays FileInDays %%a  && REM DateiDatum als Ganzzahl
   call :TimeToMins FileMinutes %%b && Rem Datei-Minuten seit Mitternacht
)

Set /a "yesterday=%2-1"  
if %fileinDays% LSS %2                  Set /a "TodayCompMinutes=%3+(60*24)-30"       
If %fileinDays% LSS %2 if 1%todayCompMinutes% GTR 1%fileMinutes% (
    (echo [GTR] %~t1 %~f1: von gestern; älter als 30 Minuten)  && goto :eof
) else (
    (echo [LEQ] %~t1 %~f1: von gestern; jünger als 30 Minuten) && goto :eof
)
REM verbleibender Fall: Datei ist von Heute:
Set /a "FileMinutes+=30"  
If %fileminutes% LSS %3 (
   echo [GTR] %~t1 %~f1: von heute; älter als 30 Minuten 
	  copy %~f1 c:\test | find ".csv" >> c:\test\transfer.log  
) else (
   echo [LSS] %~t1 %~f1: von heute; jünger als 30 Minuten   
)  
goto :eof
~~~~~~~~~~~
:DateToDays ; Para1=Variablenname; Para2 [,Para3] :Datum als "[ttt] TT.MM.[JJ]JJ"  
For %%i in (%2 %3) do set "now=%%i"  
for /f "tokens=1-3 delims=./" %%a in ("%now%") do (  
      Set /a "%1=((%%c%%100)*365)+((1%%b-100)*12)+(1%%a-100)" )  
goto :eof
~~~~~~~~~~
:TimeToMins Parameter1: Variablenname Parameter2:Zeit im Format hh:mm
For /f "tokens=1-2 delims=:" %%a in ("%2") do set /a "%1=(1%%a-100)*60+(1%%b-100)"  
:: ---snapp GetFileMinutesDemo.bat

@echo off & setlocal
set "Datei=c:\*.*" <<== ist keine sprezifische Datei, am besten wäre es wenn er einen ganzen ordner durchsucht  

:::::::::VBScript erzeugen - Beginn
set G=%temp%\GetFileMinutes.vbs
>%G% echo WScript.Echo DateDiff("n",CreateObject("Scripting.FileSystemObject").GetFile(WScript.Arguments(0)).DateLastModified,Now())  
:::::::::VBScript erzeugen - Ende

for %%i in (%1) do for /f %%m in ('cscript //nologo %G% "%%i"') do if %%m gtr 15 move "%%i" "c:\test\"  

echo %Min%