复制代码 代码如下:
@echo off
set d=%date:~0,10%
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind.txt",2,true).writeline(dateadd("d",-2,"%d%"))(window.close)
for /f %%m in (wind.txt) do (set tt=%%m)
set ph=D:\Test
for /r "%ph%" %%i in (*) do (if %%~ti lss %tt% (@echo "%%~ti" del /a /f /s /q "%%i"))
pause
运行的时候去掉最后一个@echo 和 pause
这两个为测试输出用的
dateadd("d",-2,"%d%") 这里改变删除时间
注意:一定要改 区域语言 里的 时间格式 为 yyyy-mm-dd
@echo off
set d=%date:~0,10%
mshta vbscript:createobject("scripting.filesystemobject").opentextfile("wind.txt",2,true).writeline(dateadd("d",-2,"%d%"))(window.close)
for /f %%m in (wind.txt) do (set tt=%%m)
set ph=D:\Test
for /r "%ph%" %%i in (*) do (if %%~ti lss %tt% (@echo "%%~ti" del /a /f /s /q "%%i"))
pause
运行的时候去掉最后一个@echo 和 pause
这两个为测试输出用的
dateadd("d",-2,"%d%") 这里改变删除时间
注意:一定要改 区域语言 里的 时间格式 为 yyyy-mm-dd