Вот что происходит
Код:
C:\Documents and Settings\Администратор>D:\move\move1.cmd
C:\Documents and Settings\Администратор>chcp 866
Текущая кодовая страница: 866
C:\Documents and Settings\Администратор>chcp 1251
Текущая кодовая страница: 1251
C:\Documents and Settings\Администратор>Set From=D:\bcp
C:\Documents and Settings\Администратор>Set To=D:\target_bkp
C:\Documents and Settings\Администратор>Set Mask=20*.rar
C:\Documents and Settings\Администратор>Set MaskD=??.??.20??
C:\Documents and Settings\Администратор>Set DeltaDay=-7
C:\Documents and Settings\Администратор>SetLocal EnableExtensions EnableDelayedE
xpansion
C:\Documents and Settings\Администратор>rem Пересчет даты на заданное кол-во дне
й
C:\Documents and Settings\Администратор>rem Формат даты dd.mm.yyyy +- дни получи
м новые yyyymmdd
C:\Documents and Settings\Администратор>Call :FromNow -7 04.04.2013
C:\Documents and Settings\Администратор>SetLocal
C:\Documents and Settings\Администратор>Set DT=04.04.2013
C:\Documents and Settings\Администратор>Set yyyy=2013 & set /a mm=10004%100 &
set /a dd=10004%100
C:\Documents and Settings\Администратор>Set /A JD=-7+dd-32075+1461*(yyyy+4800+(m
m-14)/12)/4+367*(mm-2-(mm-14)/12*12)/12-3*((yyyy+4900+(mm-14)/12)/100)/4
C:\Documents and Settings\Администратор>Set /A L=JD+68569,N=4*L/146097,L=L-(1460
97*N+3)/4,I=4000*(L+1)/1461001
C:\Documents and Settings\Администратор>Set /A L=L-1461*I/4+31,J=80*L/2447,K=L-2
447*J/80,L=J/11
C:\Documents and Settings\Администратор>Set /A J=J+2-12*L,I=100*(N-49)+I+L
C:\Documents and Settings\Администратор>Set /A yyyy=I,mm=100+J,dd=100+K
C:\Documents and Settings\Администратор>EndLocal & Set yyyymmdd=20130328
C:\Documents and Settings\Администратор>GoTo :Eof
C:\Documents and Settings\Администратор>rem Чистим папку D:\target_bkp от файлов
старше недели
C:\Documents and Settings\Администратор>If Exist "D:\target_bkp\20*.rar" (FOR /F
"usebackq delims=" %j IN (`Dir "D:\target_bkp\20*.rar" /B /A:-D /O:N`) DO (
Echo "D:\bcp\??.??.20??" %j
pause
Set FDate=%~nxj
Set FDate=!FDate:~0,8!
If !FDate! LEQ 20130328 (Del "D:\target_bkp\%j" 1>NUL ) Else (GoTo :Continue )
) )
C:\Documents and Settings\Администратор>rem Копируем файлы из папок во D:\bcp не
старше недели
C:\Documents and Settings\Администратор>FOR /F "usebackq delims=" %j IN (`Dir "D
:\bcp\??.??.20??" /B /A:D /O:N`) DO (
Set FDate=%~nxj
Set FDate=!FDate:~6,4!!FDate:~3,2!!FDate:~0,2!
If !FDate! GTR 20130328 XCopy "D:\bcp\%j\20*.rar" "D:\target_bkp\" /D /Y 1>NUL
)
C:\Documents and Settings\Администратор>(
Set FDate=06.03.2013
Set FDate=!FDate:~6,4!!FDate:~3,2!!FDate:~0,2!
If !FDate! GTR 20130328 XCopy "D:\bcp\06.03.2013\20*.rar" "D:\target_bkp\" /D /
Y 1>NUL
)
C:\Documents and Settings\Администратор>(
Set FDate=23.03.2013
Set FDate=!FDate:~6,4!!FDate:~3,2!!FDate:~0,2!
If !FDate! GTR 20130328 XCopy "D:\bcp\23.03.2013\20*.rar" "D:\target_bkp\" /D /
Y 1>NUL
)
C:\Documents and Settings\Администратор>(
Set FDate=24.03.2013
Set FDate=!FDate:~6,4!!FDate:~3,2!!FDate:~0,2!
If !FDate! GTR 20130328 XCopy "D:\bcp\24.03.2013\20*.rar" "D:\target_bkp\" /D /
Y 1>NUL
)
C:\Documents and Settings\Администратор>(
Set FDate=25.03.2013
Set FDate=!FDate:~6,4!!FDate:~3,2!!FDate:~0,2!
If !FDate! GTR 20130328 XCopy "D:\bcp\25.03.2013\20*.rar" "D:\target_bkp\" /D /
Y 1>NUL
)
C:\Documents and Settings\Администратор>GoTo :Eof
