Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Копирование файлов
Показать сообщение отдельно

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


для стандартного формата даты: "ДД.ММ.ГГГГ":

Код: Выделить весь код
@echo off
SetLocal EnableDelayedExpansion

set SRC=BASE
set DST=BASECOPY

call :FromNow -2
xcopy /q/y "%SRC%\*" "%DST%\%DATE:~,5%.%DATE:~-2%\"
for /d %%i in (%DST%\*) do (
  set $i=%%~ni& set "$i=!$i:~-2!!$i:~3,2!!$i:~,2!"
  if !$i! lss %yymmdd% rd /s/q "%%i"
)
EXIT

:FromNow
 SetLocal
 Set yyyy=%DATE:~-4%& set /a mm=100%DATE:~3,2%%%100& set /a dd=100%DATE:~,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 yymmdd=%yyyy:~-2%%mm:~-2%%dd:~-2%
Exit /B
FYI: CMD/BAT - [решено] Удаление старых архивов (пост #5)

Отправлено: 05:45, 13-10-2010 | #2

Название темы: Копирование файлов