批处理如何提取特定日期文件进行压缩

cancehu

1. @echo off
   
2. set day=%date%
   
3. set days=0
   
4. 
   
5. setlocal enabledelayedexpansion
   
6. :: 提取日期
   
7. for /f "tokens=1-3 delims=-/. " %%i in ("%day%") do (
   
8.     set /a sy=%%i, sm=100%%j %% 100, sd=100%%k %% 100
   
9. )
   
10. set /a sd-=1
    
11. if %sd% leq 0 call :count
    
12. set sm=0%sm%
    
13. set sd=0%sd%
    
14. set od=%sy%%sm:~-2%%sd:~-2%
    
15. goto rar
    
16. 
    
17. :count
    
18. set /a sm-=1
    
19. if !sm! equ 0 set /a sm=12, sy-=1
    
20. call :days
    
21. set /a sd+=days
    
22. if %sd% leq 0 goto count
    
23. goto :eof
    
24. 
    
25. :days
    
26. :: 获取指定月份的总天数
    
27. set /a leap="^!(sy %% 4) & ^!(^!(sy %% 100)) | ^!(sy %% 400)"
    
28. set /a max=28+leap
    
29. for /f "tokens=%sm%" %%i in ("31 %max% 31 30 31 30 31 31 30 31 30 31") do set days=%%i
    
30. goto :eof
    
31. 
    
32. :rar
    
33. echo %od%
    
34. 
    
35. net use \\172.15.1.2\ipc$ /user:administrator (abc)
    
36. rar a  -r J:\241bak\%od%.rar \\172.15.1.2\f$\sqlbak
    

复制代码

请教上面代码
我172.15.1.2上面Ｆ盘sqlbak文件夹中很多个子文件夹，这些子文件夹每天会生成一个文件，我现在运行批处理就会反sqlbak所有文件都压缩到j:\241bak文的夹中以日期为名字命名
而我要的效果如果今天是8月23日就可提取8月22日的文件进行压缩，命名也是以20120822.rar为名字，而不是这个文件夹中所有文件，
请教在侠们该如何更改。

apang

第36行替换成下面的试试：

1. for /f "delims=" %%a in ('dir /a-d/b/s "\\172.15.1.2\f$\sqlbak"') do (
   
2.   set "T=%%~ta"
   
3.   set T=!T:-=!&set T=!T:/=!&set T=!T:.=!
   
4.   if "!T:~,8!"=="%od%" rar a J:\241bak\%od%.rar "%%a"
   
5. )

复制代码

cancehu

回复 2# apang

谢谢2楼的回答，不过我找到更简单的代码
36行换成

1. rar a j:\241bak\%od%.rar -r \\172.15.1.2\f$\sqlbak\*%od%*.bak

复制代码

apang

需要压缩备份的文件都是以日期命名的?缘来如此。。。