:: DateDel.bat - 演示刪除7日前（含第7日前）修改的文件
:: Will Sort - 2021-8-26 - CMD@WinXP
:: Note: 不要將此批處理文件置于需要選擇刪除文件的目錄中
::       程序只是進行了刪除演示，若演示無誤，刪除del前面的echo即可正常執行
::       如果首次執行的日期不是2021-8-26，則需調整第四行代碼中的保留日期列表
::       程序需要每日運行至少一次，以便自動更新日期列表
@echo off
if "%1"==":" goto %2
if exist %temp%.\_DateDel.bat %temp%.\_DateDel.bat
%0 : Update 2021-08-20 2021-08-21 2021-08-22 2021-08-23 2021-08-24 2021-08-25 2021-08-26

:Update
setlocal EnableExtensions
set today=%date:~0,10%
if not "%today%"=="%9" %0 : Update %4 %5 %6 %7 %8 %9 %today%
echo %0 : Update %3 %4 %5 %6 %7 %8 %9 >%temp%.\_DateDel.bat

:Delete
for /r %%f in (*.*) do if "%%~tf" LEQ "%3" echo del "%%f"

:End

if %day% GTR 31 (
set /a day=1 
set /a month=month+1)