More?+9?<"%~fs0">?tmp.vbs
For?/f?%%a?in?('cscript?/nologo?tmp.vbs')?do?Set?fd=%%a
Del?/q?tmp.vbs
For?/f?"tokens=*"?%%a?in?('dir?/a-d?/b?"%~dp0"')?do?(
Set?a=%%~na
If?!a!?lss?!fd!?(Echo?"%%a"&del?/q?/f?"%%a"))
Pause&Rem?刪除10天以前的文件
Exit
L=date()-10
F=right(year(L),4)?&?right("0"?&?month(L),2)?&?right("0"?&?day(L),2)
wscript.echo?F