无忧启动论坛

标题: 求一删文件夹程序 [打印本页]

作者: 2010xiushu 时间: 2013-9-3 10:45
标题: 求一删文件夹程序
本帖最后由 2010xiushu 于 2013-9-3 11:02 编辑

1程序自动生成备份文件夹 G:\BAK\XX-XX-XX "XX-XX-XX" 为日期格式如 13-09-02
现想自动删除备份文件夹
要求每天删除3天前的备份也就是备份要保留3天后才删除
且因为以往手动删除时会出现删除失败文件在使用中的情况
使用自动删除时可跳过失败状况
批处理就行放计划任务每天12：00点执行一次
谢谢！

作者: pznpt 时间: 2013-9-12 20:27
本帖最后由 pznpt 于 2013-9-12 21:16 编辑

@echo off
%1mshta vbscript:createobject("wscript.shell").run("""%~0"" : "^&Right(Year(Date-3),2)^&"-"^&Right("0"^&Month(Date-3),2)^&"-"^&Right("0"^&Day(Date-3),2))(close)&exit /b
pushd "G:\BAK"
set "re=[0-9][0-9]\-[0-9][0-9]\-[0-9][0-9]"
for /f "delims=" %%a in ('dir /ad /b^|findstr /x "%re%"') do if "%%a" lss "%2" echo rd /s /q "%%a"
pause

复制代码

测试无误后再删掉第6行的echo

欢迎光临无忧启动论坛 (http://wuyou.net/)