求一删文件夹程序

2010xiushu

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

pznpt

1. @echo off
   
2. %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
   
3. 
   
4. pushd "G:\BAK\"
   
5. set "re=[0-9][0-9]\-[0-9][0-9]\-[0-9][0-9]"
   
6. for /f "delims=" %%a in ('dir /ad /b^|findstr /x "%re%"') do if "%%a" lss "%2" echo rd /s /q "%%a\"
   
7. pause

复制代码

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