[megaloman]

Постановка задачи в Вашем изложении весьма запутана, поэтому сам себе ставлю задачу и сам её решаю
Имеется папка, например, E:\Delete, в которой создаются подпапки с именами вида дд.мм.гггг .
В них создаются файлы с именами вида ггггммддччмм.rar
Также есть папка, например, E:\DDDDD, в которой хранятся копии файлов из указанных папок, но копии файлов в этой папке должны храниться не более недели.
Вот батник, который удаляет в папке E:\DDDDD копии файлов старше недели (время создания файла анализируется по информации в его имени ггггммдд) и копирует все файлы в подпапках E:\Delete\дд.мм.гггг\ггггммддччмм.rar в папку E:\DDDDD, которые не старше недели и которых еще нет в папке E:\DDDDD (время создания файлов определяется из имени папки дд.мм.гггг)

Код:

@Echo Off

Set From=E:\Delete
Set To=E:\DDDDD
Set Mask=20*.rar
Set MaskD=??.??.20??

Set DeltaDay=-7

SetLocal EnableExtensions EnableDelayedExpansion

rem Пересчет даты на заданное кол-во дней
rem Формат даты dd.mm.yyyy +- дни получим новые yyyymmdd

Call :FromNow %DeltaDay% %Date%

rem Чистим папку %To% от файлов старше недели

If Exist "%To%\%Mask%" (
	FOR /F "usebackq delims=" %%j IN (`Dir "%To%\%Mask%" /B /A:-D /O:N`) DO (
		Set FDate=%%~nxj
		Set FDate=!FDate:~0,8!
		If !FDate! LEQ %yyyymmdd% (Del "%To%\%%j">NUL) Else (GoTo :Continue) 
	)
)
:Continue

rem Копируем файлы из папок во %From% не старше недели

FOR /F "usebackq delims=" %%j IN (`Dir "%From%\%MaskD%" /B /A:D /O:N`) DO (
	Set FDate=%%~nxj
	Set FDate=!FDate:~6,4!!FDate:~3,2!!FDate:~0,2!
	If !FDate! GTR %yyyymmdd% XCopy "%From%\%%j\%Mask%" "%To%\" /D /Y >NUL
)

GoTo :Eof

:FromNow
 SetLocal
 Set DT=%2
 Set yyyy=%DT:~-4%& set /a mm=100%DT:~3,2%%%100& set /a dd=100%DT:~,2%%%100
 Set /A JD=%~1+dd-32075+1461*(yyyy+4800+(mm-14)/12)/4+367*(mm-2-(mm-14)/12*12)/12-3*((yyyy+4900+(mm-14)/12)/100)/4
 Set /A L=JD+68569,N=4*L/146097,L=L-(146097*N+3)/4,I=4000*(L+1)/1461001
 Set /A L=L-1461*I/4+31,J=80*L/2447,K=L-2447*J/80,L=J/11
 Set /A J=J+2-12*L,I=100*(N-49)+I+L
 Set /A yyyy=I,mm=100+J,dd=100+K
 EndLocal& Set yyyymmdd=%yyyy%%mm:~-2%%dd:~-2%
GoTo :Eof

Пересчет даты заимствовал здесь

[darkAge]

Все верно так и должно работать, пути папок изменил на свои, имена папок в формате dd.mm.yyyy, имена архивов yyyymmddhhmm_1C.rar, но думаю это не принципиально если указана маска 20*.rar, но не копирует, просто выполняется батник, но ни чего не происходит.

[darkAge]

Вот что происходит

Код:

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

[megaloman]

Судя по приведенному, Вам нЕчего копировать. По этой картинке будем копировать файлы из папок, начиная с 29.03.2013 и т д., а последнее, что у Вас есть, 25.03.2013 - вне диапазона на сохранение. Вы не предоставили данные для батника. Кстати, батник набран не в 866 кодировке, но, так как у Вас не присутствуют в описании путей русские буквы - это не принципиально.

[darkAge]

Во точно, ступил, поставил 29 дней, начал копировать.
спасибо.

[darkAge]

Здравствуйте, давно не заходил, сапасибо за помощь, но появился вопрос, где то после недели выполнения скрипта, он стал останавливаться и требует нажатия любой кнопки, как я понимаю для подтверждения удаления файла.

[megaloman]

Безотносительно к написанным мной скриптам (сейчас некогда вспоминать и разбираться) вызываем хелп для команды Del и читаем

del /? Удаление одного или нескольких файлов. DEL [/P] [/F] [/S] [/q] [/A[[:]атрибуты]] имена ERASE [/P] [/F] [/S] [/q] [/A[[:]атрибуты]] имена имена Список из одного или нескольких файлов или каталогов. Для удаления группы файлов можно использовать подстановочные знаки. Если указан каталог, будут удалены все файлы в этом каталоге. /P Запрос подтверждения перед удалением каждого файла. /F Принудительное удаление файлов, доступных только для чтения. /S Удаление указанных файлов из всех подкаталогов. /Q Отключение запроса на подтверждение при удалении файлов. /A Отбор файлов для удаления по атрибутам. атрибуты R Файлы, доступные только для чтения. S Системные файлы. H Скрытые файлы. A Файлы, готовые для архивирования. I Файлы с неиндексированным содержимым. L Точки повторной обработки. - Префикс "-" имеет значение НЕ. Изменение команд DEL и ERASE при включении расширенной обработки команд: Результаты вывода для ключа /S принимают обратный характер, то есть выводятся только имена удаленных файлов, а не файлов, которые не удалось найти.

[darkAge]

добавил атрибуты, не помогло все равно запрос выдается

Код:

@Echo on

chcp 866


Set From=E:\BackUp\virtual
Set To=\\192.168.3.13\Backup\Virtual
Set Mask=20*.rar
Set MaskD=??.??.20??

Set DeltaDay=-7

SetLocal EnableExtensions EnableDelayedExpansion

rem Пересчет даты на заданное кол-во дней
rem Формат даты dd.mm.yyyy +- дни получим новые yyyymmdd

Call :FromNow %DeltaDay% %Date%

rem Чистим папку %To% от файлов старше недели

If Exist "%To%\%Mask%" (
	FOR /F "usebackq delims=" %%j IN (`Dir "%To%\%Mask%" /B /A:-D /O:N`) DO (

Echo "%From%\%MaskD%" %%j
pause
		Set FDate=%%~nxj
		Set FDate=!FDate:~0,8!
		If !FDate! LEQ %yyyymmdd% (Del "%To%\%%j" /Q /F >NUL) Else (GoTo :Continue) 
	)
)
:Continue


rem Копируем файлы из папок во %From% не старше недели

FOR /F "usebackq delims=" %%j IN (`Dir "%From%\%MaskD%" /B /A:D /O:N`) DO (
	Set FDate=%%~nxj
	Set FDate=!FDate:~6,4!!FDate:~3,2!!FDate:~0,2!
	If !FDate! GTR %yyyymmdd% XCopy "%From%\%%j\%Mask%" "%To%\" /D /Y >NUL
)

GoTo :Eof

:FromNow
 SetLocal
 Set DT=%2
 Set yyyy=%DT:~-4%& set /a mm=100%DT:~3,2%%%100& set /a dd=100%DT:~,2%%%100
 Set /A JD=%~1+dd-32075+1461*(yyyy+4800+(mm-14)/12)/4+367*(mm-2-(mm-14)/12*12)/12-3*((yyyy+4900+(mm-14)/12)/100)/4
 Set /A L=JD+68569,N=4*L/146097,L=L-(146097*N+3)/4,I=4000*(L+1)/1461001
 Set /A L=L-1461*I/4+31,J=80*L/2447,K=L-2447*J/80,L=J/11
 Set /A J=J+2-12*L,I=100*(N-49)+I+L
 Set /A yyyy=I,mm=100+J,dd=100+K
 EndLocal& Set yyyymmdd=%yyyy%%mm:~-2%%dd:~-2%
GoTo :Eof

[sunnykey]

добавил атрибуты, не помогло все равно запрос выдается »

У тебя в скрипте команда pause. Она вызывает остановку скрипта.

Код:

Call :FromNow %DeltaDay% %Date%

rem Чистим папку %To% от файлов старше недели

If Exist "%To%\%Mask%" (
	FOR /F "usebackq delims=" %%j IN (`Dir "%To%\%Mask%" /B /A:-D /O:N`) DO (

Echo "%From%\%MaskD%" %%j
pause
		Set FDate=%%~nxj
		Set FDate=!FDate:~0,8!
		If !FDate! LEQ %yyyymmdd% (Del "%To%\%%j" /Q /F >NUL) Else (GoTo :Continue) 
	)
)

На досуге не забывай читать справку ко всем неизвестным командам

Код:

C:\>pause /?
Приостановка выполнения пакетного файла и вывод сообщения:
    Для продолжения нажмите любую клавишу . . .

[darkAge]

Всем спасибо, все заработало.