没事写了两个定时删除的批处理文件

@echo off&setlocal
SETLOCAL ENABLEDELAYEDEXPANSION

rem 要删除的路径（日期文件夹父目录）
SET DELPATH=E:\data

REM 删除指定天数前的文件夹及下面的文件
SET DELDAYSAGO=200

rem 调用Date2Day函数计算%DELDAYSAGO%天前的日期
call :Date2Day %date:~0,4%-%date:~5,2%-%date:~8,2% %DELDAYSAGO% threemonthday
rem echo threemonthday is %threemonthday% >> dealpic.log
rem set 目标字符串=%源字符串:~起始值,截取长度%

for /d  %%i in (%DELPATH%\2*) do (
set  lastday=%%i
echo !lastday! >> %DELPATH%\foldername.txt
)

echo ----------------------------------------------------------------------------------------------- >> %DELPATH%\dealpic.log
echo %DELDAYSAGO%'days ago is %threemonthday% >> %DELPATH%\dealpic.log
echo begin dealing picture's time is %threemonthday% %time:~0,8% >> %DELPATH%\dealpic.log
echo ----------------------------------------------------------------------------------------------- >> %DELPATH%\dealpic.log

for /f "tokens=4 delims=\" %%i in (%DELPATH%\foldername.txt) do (
set /a days=%threemonthday% - %%i
if !days! GTR 0 (

del /C /Q %DELPATH%\pic\%%i
if %ERRORLEVEL% == 0 ( 
echo %date:~0,4%-%date:~5,2%-%date:~8,2% %time:~0,8% del /C /Q %DELPATH%\%%i >> %DELPATH%\dealpic.log 
rd /Q /S %DELPATH%\pic\%%i
if %ERRORLEVEL% == 0 (
echo %date:~0,4%-%date:~5,2%-%date:~8,2% %time:~0,8% rd /Q /S %DELPATH%\%%i >> %DELPATH%\dealpic.log
) else (
echo executionERROR: %date:~0,4%-%date:~5,2%-%date:~8,2%%time:~0,8% rd /Q /S %DELPATH%\%%i DEAL FAILURE.  errorNUMBER:%ERRORLEVEL%  >> %DELPATH%\dealpic.log
)

) else (
echo executionERROR: %date:~0,4%-%date:~5,2%-%date:~8,2% %time:~0,8% del /C /Q %DELPATH%\%%i DEAL FAILURE.  errorNUMBER:%ERRORLEVEL%  >> %DELPATH%\dealpic.log
)

)

)
del /Q %DELPATH%\foldername.txt
echo ----------------------------------------------------------------------------------------------- >> %DELPATH%\dealpic.log
echo end dealing picture's time is %threemonthday% %time:~0,8% >> %DELPATH%\dealpic.log
echo ----------------------------------------------------------------------------------------------- >> %DELPATH%\dealpic.log

Exit

rem   使用方法：call :Date2Day 2007-11-12 2 Day 

:Date2Day 计算指定天数 前/后 的日期

@echo off&setlocal 

for /f "tokens=1-3 delims=/-:\, " %%a in ('echo/%~1') do ( 

set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100) 

set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2 

set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633 

set /a i=j-%~2,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a 

set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5 

set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10 

(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%) 

endlocal&set %~3=%yy%%f%%mm%%f%%dd%&goto :EOF