更新日付を見て○日間更新がないファイルを削除

(DOSプロンプト活用相談室LOG)を参考にしたバッチファイル。対象とするフォルダを変更し、またフォル該当フォルダがない時に予想外のフォルダ中のファイルを削除しないようerrorlevelを訊くようにした。

@echo off
cd %homepath%\デスクトップ\sample
if errorlevel 1 exit
echo WScript.Echo DateAdd("d",-7,Now)> tmp.vbs
for /f "delims=" %%X in ('cscript //nologo tmp.vbs') do set OLD=%%X
del tmp.vbs
set OLD=%OLD:~0,16%
echo %OLD% > old.txt
for /r %%F in (*) do if "%%~tF" lss "%OLD%" del /F "%%~F"
for /r /d %%D in (*) do rd %%D 2>NUL