批处理删除指定天数日期之前的文件夹

批处理删除指定天数日期之前的文件夹

写的不错，所以转载：http://blog.csdn.net/ljc007/article/details/5198756

【方案一】BAT + REG + VBS

[c-sharp]  view plain  copy

1. @echo off  
2. ::演示：删除指定路径下指定天数之前（以文件夹的最后修改日期为准）的文件夹。  
3. ::如果演示结果无误，把rd前面的echo去掉，即可实现真正删除。  
4. ::本例调用了临时VBS代码进行日期计算  
5. ::本例为兼容不同的日期格式，调用reg命令（XP系统自带）统一设置日期格式，  
6. ::处理完毕之后再把日期格式恢复成原来的状态。  
7.   
8. rem 指定待删除文件夹的存放路径  
9. set SrcDir=C:/Test  
10. rem 指定天数  
11. set DaysAgo=1  
12. for /f "skip=2 delims=" %%a in ('reg query "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate') do (  
13.     set "RegDateOld=%%a"  
14. )  
15. set RegDateOld=%RegDateOld:~-8%  
16. reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul  
17. >"%temp%/DstDate.vbs" echo LastDate=date()-%DaysAgo%  
18. >>"%temp%/DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)  
19. >>"%temp%/DstDate.vbs" echo wscript.echo FmtDate  
20. for /f %%a in ('cscript /nologo "%temp%/DstDate.vbs"') do (  
21.     set "DstDate=%%a"  
22. )  
23. set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%  
24. for /d    %%a in ("%SrcDir%/*.*") do (  
25.     if "%%~ta" leq "%DstDate%" (  
26.         if exist "%%a/"  
27.             echo rd /s /q "%%a"  
28.         )  
29.     )  
30. )  
31. reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul  
32. pause  

【方案二】BAT + REG + Ritchie Lawrence 日期函数

[c-sharp]  view plain  copy

1. @echo off  
2. ::演示：删除指定路径下指定天数之前（以文件夹的最后修改日期为准）的文件夹。  
3. ::如果演示结果无误，把rd前面的echo去掉，即可实现真正删除。  
4. ::本例调用了 Ritchie Lawrence 的日期函数进行日期计算  
5. ::日期转换的核心算法请参考http://bbs.bathome.cn/thread-3056-1-1.html  
6. ::本例为兼容不同的日期格式，调用reg命令（XP系统自带）统一设置日期格式，  
7. ::处理完毕之后再把日期格式恢复成原来的状态。  
8.   
9. rem 指定待删除文件夹的存放路径  
10. set SrcDir=C:/Test  
11. rem 指定天数  
12. set DaysAgo=1  
13. for /f "skip=2 delims=" %%a in ('reg query "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate') do (  
14.     set "RegDateOld=%%a"  
15. )  
16. set RegDateOld=%RegDateOld:~-8%  
17. reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul  
18. call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays  
19. reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul  
20. set /a PassDays-=%DaysAgo%  
21. call :DaysToDate %PassDays% DstYear DstMonth DstDay  
22. set DstDate=%DstYear%%DstMonth%%DstDay%  
23. set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%  
24. for /d    %%a in ("%SrcDir%/*.*") do (  
25.     if "%%~ta" leq "%DstDate%" (  
26.         if exist "%%a/"  
27.             echo rd /s /q "%%a"  
28.         )  
29.     )  
30. )  
31. reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul  
32. pause  
33. goto :eof  
34.   
35. :DateToDays %yy% %mm% %dd% days  
36. setlocal ENABLEEXTENSIONS  
37. set yy=%1&set mm=%2&set dd=%3  
38. if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)  
39. set /a dd=100%dd%%%100,mm=100%mm%%%100  
40. set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2  
41. set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633  
42. endlocal&set %4=%j%&goto :EOF  
43.   
44. :DaysToDate %days% yy mm dd  
45. setlocal ENABLEEXTENSIONS  
46. set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a  
47. set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5  
48. set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10  
49. (if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)  
50. endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF  

【方案三】BAT + VBS

[c-sharp]  view plain  copy

1. @echo off  
2. ::演示：删除指定路径下指定天数之前（以文件夹的最后修改日期为准）的文件夹。  
3. ::如果演示结果无误，把rd前面的echo去掉，即可实现真正删除。  
4. ::本例调用了临时VBS代码进行日期计算，并统一设置系统日期格式，处理完毕  
5. ::之后再把日期格式恢复成原来的状态。摆脱了对reg命令（XP系统自带）的依赖。  
6.   
7. rem 指定待删除文件夹的存放路径  
8. set SrcDir=C:/test  
9. rem 指定天数  
10. set DaysAgo=1  
11. >"%temp%/BackupDate.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")  
12. >>"%temp%/BackupDate.vbs" echo WScript.Echo WshShell.RegRead ("HKEY_CURRENT_USER/Control Panel/International/sShortDate")  
13. for /f %%a in ('cscript /nologo "%temp%/BackupDate.vbs"') do (  
14.     set "RegDateOld=%%a"  
15. )  
16. >"%temp%/UnifyDate.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")  
17. >>"%temp%/UnifyDate.vbs" echo WshShell.RegWrite "HKEY_CURRENT_USER/Control Panel/International/sShortDate", "yyyy-M-d", "REG_SZ"  
18. cscript /nologo "%temp%/UnifyDate.vbs"  
19. >"%temp%/DstDate.vbs" echo LastDate=date()-%DaysAgo%  
20. >>"%temp%/DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)  
21. >>"%temp%/DstDate.vbs" echo wscript.echo FmtDate  
22. for /f %%a in ('cscript /nologo "%temp%/DstDate.vbs"') do (  
23.     set "DstDate=%%a"  
24. )  
25. set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%  
26. for /d    %%a in ("%SrcDir%/*.*") do (  
27.     if "%%~ta" leq "%DstDate%" (  
28.         if exist "%%a/"  
29.             echo rd /s /q "%%a"  
30.         )  
31.     )  
32. )  
33. >"%temp%/RecoverDate.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")  
34. >>"%temp%/RecoverDate.vbs" echo WshShell.RegWrite "HKEY_CURRENT_USER/Control Panel/International/sShortDate", "%RegDateOld%", "REG_SZ"  
35. cscript /nologo "%temp%/RecoverDate.vbs"  
36. pause  

【方案四】字符串截取

[c-sharp]  view plain  copy

1. @echo off  
2. ::演示：删除指定路径下指定天数之前（以文件夹名中包含的日期字符串为准）的文件夹。  
3. ::如果演示结果无误，把rd前面的echo去掉，即可实现真正删除。  
4. ::本例假设文件夹名中包含的日期字符串（比如：Archive-2009-12-25）  
5.   
6. rem 指定待删除文件夹的存放路径  
7. set SrcDir=C:/test  
8. rem 指定天数  
9. set DaysAgo=1  
10.   
11. >"%temp%/DstDate.vbs" echo LastDate=date()-%DaysAgo%  
12. >>"%temp%/DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)  
13. >>"%temp%/DstDate.vbs" echo wscript.echo FmtDate  
14. for /f %%a in ('cscript /nologo "%temp%/DstDate.vbs"') do (  
15.   set "DstDate=%%a"  
16. )  
17. set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%  
18.   
19. setlocal enabledelayedexpansion  
20. for /d  %%a in ("%SrcDir%/*.*") do (  
21.   if "%%~ta" leq "%DstDate%" (  
22.     set "FolderDate=%%~na"  
23.     set "FolderDate=!FolderDate:~8,10!"  
24.     if "!FolderDate!" leq "%DstDate%" (  
25.         if exist "%%a/" (  
26.             echo rd /s /q "%%a"  
27.         )  
28.     )  
29.   )  
30. )  
31. endlocal  
32. pause