@echo off
setlocal enabledelayedexpansion
:rd 
for /f "tokens=1-2 delims=:" %%a in ('echo %time%') do set /a th=%%a & set /a tm=%%b & set /a nt=%th%*60+%tm%-30
for /f "tokens=*"  %%a in ('"dir /s /b  e:\test"') do (
set ft=%%~ta
for /f "tokens=1-5 delims=^-,^:, " %%i in ("!ft!") do set /a th=%%l & set /a tm=%%m & set /a ot=!th!*60+!tm!
if !ot! leq %nt% (move "%%a" "e:\test2")
)
ping 127.1 -n 180
goto rd  
endlocal
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%a in ('echo.%time% /t') do set /a nowt=0x%%a*60+0x%%b
for /f %%a in ('dir /b e:\test') do ( 
       set tm=%%~ta
       for /f "tokens=2,3 delims=: " %%b in ('echo.!tm!')do set /a tout=nowt-^(0x%%b*60+0x%%c^)
       if "!nowt!" leq 30 move %%~fa e:\test2
)
复制代码

@echo off
set "SrcDir=E:\test"
set "DstDir=E:\test2"

echo,D = DateAdd("n",-30,Now)>"%tmp%\$.vbs"
echo,WScript.Echo Year(D)*10000+Month(D)*100+Day(D)^&_>>"%tmp%\$.vbs"
echo,Right("0"^&(Hour(D)*10000+Minute(D)*100+Second(D)),6)>>"%tmp%\$.vbs"

for /f "delims=" %%a in ('cscript /NoLogo "%tmp%\$.vbs"') do set "t=%%a"
for %%a in ("%SrcDir%\") do set "Drv=%%~da" & set "Pth=%%~pa"
set w=wmic datafile where "Drive='%Drv%' and Path='%Pth:\=\\%'"

for /f "tokens=1*" %%a in ('%w% get CreationDate^,Name^|find ":"') do (
    if "%%~na" lss "%t%" (
        for /f "tokens=*" %%c in ("%%b") do move "%%~fc" "%DstDir%\"
    )
)
del "%tmp%\$.vbs"
复制代码