批处理如何判断文件修改日期并移动到某空间？

珠七七

求助各位老师，本人在公司里做运维，因服务器硬盘空间所限，所以把数据库备份放在3个空间，本机G:\Data_cope\，是数据每天自动备份，本机I:\SQL_DB_BAK\，是另外一个存储的空间，局域网共享\\192.168.163.2\可写入\oa_db_bak\是第三个可写入共享空间。
举个例比如今天是20号，局域网可以保留13天的数据，本机I盘可以保留6天，本机G盘可以保留6天.程序先比较局域网共享的备份文件，如果超过25天的数据会删除，再去比较I盘，如果超过12天的移动到局域网共享空间，最后去比较G盘，如果超过6天会移动到I盘。代码如下：

1. @echo off&setlocal enabledelayedexpansion
   
2. ::设置服务器绝对路径。
   
3. set services=\\192.168.163.2\可写入\oa_db_bak\
   
4. ::设置日常数据库备份路径。
   
5. set dbbak=G:\Data_cope\
   
6. ::设置临时存储数据库路径。
   
7. set linshi=I:\SQL_DB_BAK\
   
8. ::设置日志路径。
   
9. set logtxt=\\192.168.163.2\可写入\log\
   
10. ::设置瑞星杀毒服务器(192.168.163.2)数据库保留的天数
    
11. set DaysAgo=25
    
12. ::设置临时存储(I盘)数据库保留的天数。
    
13. set DaysAgo1=12
    
14. ::设置日常数据库(G盘)备份保留的天数。
    
15. set DaysAgo2=6
    
16. 
    
17. ::获取当前日期字符串（d为年月日，t为时分秒，dt为年月日时分秒）。
    
18. for /f "tokens=1,2,3 delims=/- " %%a in ("%date%") do @set D=%%a-%%b-%%c
    
19. rem echo 获取当前时间字符串
    
20. for /f "tokens=1,2,3 delims=:." %%a in ("%time%") do @set T=%%a:%%b:%%c
    
21. rem echo 如当前小时小于10，将空格替换为0
    
22. set T=%T: =0%
    
23. set dt=%D% %T%
    
24. 
    
25. ::计算离今天相差“DaysAgo”之前的日期。
    
26. >"%temp%\MyDate.vbs" echo LastDate=date()-%DaysAgo%
    
27. >>"%temp%\MyDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day
    
28. 
    
29. (LastDate),2)
    
30. >>"%temp%\MyDate.vbs" echo wscript.echo FmtDate
    
31. for /f %%a in ('cscript /nologo "%temp%\MyDate.vbs"') do (
    
32.     set DstDate=%%a
    
33. )
    
34. set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%
    
35. echo %DaysAgo%天之前的日期是：%DstDate%。
    
36. echo 正在删除%DstDate%之前的备份数据库..
    
37. for /r "%services%" %%i in (*) do (
    
38. set str=%%~ti
    
39. set str=!str:~0,10!
    
40. ::str为获取指定文件的修改日期。
    
41. if !str! LEQ %DstDate% del "%%i"
    
42. )
    
43. echo 机房服务器超过%DaysAgo%天之前在%dt%已经删除。|>>"%logtxt%%d%.txt"
    
44. echo 机房服务器超过%DaysAgo%天之前在%dt%已经删除。
    
45. 
    
46. echo 正在处理本机I盘数据库备份文件。
    
47. ::计算离今天与%DaysAgo1%之前的日期。
    
48. >"%temp%\MyDate.vbs" echo LastDate=date()-%DaysAgo1%
    
49. >>"%temp%\MyDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day
    
50. 
    
51. (LastDate),2)
    
52. >>"%temp%\MyDate.vbs" echo wscript.echo FmtDate
    
53. for /f %%a in ('cscript /nologo "%temp%\MyDate.vbs"') do (
    
54.     set DstDate=%%a
    
55. )
    
56. set DstDate1=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%
    
57. echo %DaysAgo1%天之前的日期是：%DstDate1%。
    
58. for /r "%linshi%" %%j in (*) do (
    
59. set str=%%~ti
    
60. set str=!str:~0,10!
    
61. ::str为获取指定文件的修改日期。
    
62. if !str! LEQ %DstDate1% move "%%j" "%services%"
    
63. )
    
64. echo 本机I盘数据库备份超过%DaysAgo1%天之前在%dt%已经移动到%services%。|>>"%logtxt%%d%.txt"
    
65. echo 本机I盘数据库备份超过%DaysAgo1%天之前在%dt%已经移动到%services%。
    
66. pause
    
67. 
    
68. echo 正在处理本机G盘数据库备份文件。
    
69. ::计算离今天与%DaysAgo2%之前的日期。
    
70. >"%temp%\MyDate.vbs" echo LastDate=date()-%DaysAgo2%
    
71. >>"%temp%\MyDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day
    
72. 
    
73. (LastDate),2)
    
74. >>"%temp%\MyDate.vbs" echo wscript.echo FmtDate
    
75. for /f %%a in ('cscript /nologo "%temp%\MyDate.vbs"') do (
    
76.     set DstDate=%%a
    
77. )
    
78. set DstDate2=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%
    
79. echo %DaysAgo2%天之前的日期是：%DstDate2%。
    
80. for /r "%dbbak%" %%k in (*) do (
    
81. set str=%%~ti
    
82. set str=!str:~0,10!
    
83. ::str为获取指定文件的修改日期。
    
84. if !str! LEQ %DaysAgo2% move "%%k" "%linshi%"
    
85. )
    
86. echo 本机G盘数据库备份超过%DaysAgo2%天之前在%dt%已经移动到%linshi%。|>>"%logtxt%%d%.txt"
    
87. echo 本机G盘数据库备份超过%DaysAgo2%天之前在%dt%已经移动到%linshi%。
    

复制代码

现在问题来了，
1.增加一个功能，比如程序比较文件时先PING一个局域网共享IP，如果不通，刚在本机某个目录记录哪个时间不通。如果通就执行文件移动操作。
2.获取的时间在移动后都是一样，这个应该在哪里增加，让代码结果显示哪个时间完成操作的？
3.不想代码太过冗长，所以哪里有简短代码的地方？

Batcher

如果你的系统里面有 forfiles 命令，可以参考方案5
http://bbs.bathome.net/thread-3334-1-1.html

这样就不必动态生成vbs来计算日期了，可以大大缩短代码行数。