求一删文件夹程序

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