@echo
setlocal EnableExtensions EnableDelayedExpansion
Бэр определяет положения источника и назначения, и хранит картины для того чтобы скопировать
установите SourceDir= c:\temp\EE26352923\source
установите DestDir= c:\temp\EE26352923\dest
установите MatchExts=*.trn *.bak
Бэр получает сегодняшнюю дату и преобразовывает к Джулиан
для /F «tokens=2-4 delims=/» %%A в ("%DATE%") устанавливают TodaysDate=%%C%%A%%B
звонок: jdate TodaysJDate %TodaysDate%
Бэр двигает к директории источника, находит, что все архивы сопрягают пожеланную картину
pushd «%SourceDir%»
для %%A внутри (%MatchExts%) сделайте (
Бэр получает дату изменения архивов, новообращенный к Джулиан
установите FileDate=%%~nA
звонок: jdate FileJDate! FileDate: ~-12.8!
Бэр высчитывает время архива в днях, если старо чем 7 дней двигают к назначению
установите /A FileAge=%TodaysJDate%-! FileJDate!
если! FileAge! GTR 7 двигают «%%~A» «%DestDir%»
)
popd
Бэр двигает к директории назначения, находит, что все архивы сопрягают пожеланную картину
pushd «%DestDir%»
для %%A внутри (%MatchExts%) сделайте (
Бэр получает дату изменения архивов, новообращенный к Джулиан
установите FileDate=%%~nA
звонок: jdate FileJDate! FileDate: ~-12.8!
Бэр высчитывает время архива в днях, если delete старо чем 28 дней от назначения
установите /A FileAge=%TodaysJDate%-! FileJDate!
если! FileAge! GTR 28 del «%%~fA»
)
popd
выходите /b
Подпрограмма бэра для того чтобы высчитать юлианскую дату
: дат-шнур jdate возвращать-переменный (YYYYMMDD)
установите DateStr=%~2
установите yy=%DateStr: ~0.4%
установите /A mm=1%DateStr: ~4.2%-100
установите /A dd=1%DateStr: ~6.2%-100
установите /a «yy=10000%yy% %%10000, mm=100%mm% %% 100, dd=100%dd% %% 100»
установите /a %~1=dd-32075+1461* (yy+4800+ (mm-14) /12) /4+367* (mm-2- (mm-14) /12*12) /12-3* ((yy+4900+ (mm-14) /12) /100) /4
выходите /b
|