Как скопировать файлы по дате изменения посредством bat?

Question

[unk1nD000]

Посоветуйте, как написать bat файл который:
из %from% копирует в %to% и %to2% файл последний по дате изменения
затем в %to% и %from% оставляет 5 файлов новее по дате изменения (то есть удаляет файлы старее 5-го)
в %to2% оставляет самый свежий файл по дате изменения

Мои знания в данном ремесле ограничиваются изучениями текущего дня (раньше никогда с этим не соприкасался), поэтому буду признателен развернутому ответу с комментариями и примерами рабочего кода.
Так же хотелось бы узнать, как написать подобный скрипт используя PowerShell?

Comments

[Alexey Dmitriev]

Это явное задание, а не вопрос - правилами запрещено.

[unk1nD000]

Alexey Dmitriev, как поставить вопрос корректнее?)

[rPman]

ответ: не использовать cmd/bat для таких задач, язык программирования в нем ужасен, написание программ для него походит на какое то садомаза, именно когда приходится работать с датами

даже bash выглядит комфортнее, хотя идеологически то же самое (так же через гланды многие вещи делают)

пользуйся powershell (тоже лично я не люблю) или любой другой язык программирования, например в windows начиная чуть ли не с winxp есть windows scripting host, где на JScript или даже VBScript пишешь удобную программу, которая формирует список команд для копирования (запуская например xcopy) удаления и т.п.

не нравится javascript, бери c# (или js.net или vbs.net), компилятор которого поставляется с любым .net фреймворком (начиная с win8 есть по умолчанию в ос), ничего устанавливать и настраивать не придется

[wisgest]

rPman, не знаю PowerShell, но в данном случае на bat будет проще (не нужно объявлений, создания объектов…) чем на JScript, VBScript, C#.Что касается дат, то здесь никакой арифметики не надо, достаточно лишь упорядоченного по дате вывода команды dir.

Answer 1

[res2001]

Развернуто не выйдет - нет под рукой винды. Могу дать направление.

Получить отсортированный по дате изменения список файлов можно с помощью команды: dir /b /a-d /od *
За сортировку отвечает ключ /od, можно получить обратную сортировку, тогда надо задать ключ /o-d. Ключ /a-d удаляет из вывода каталоги (по умолчанию dir выводит и каталоги то же).
Эту команду надо запихнуть в цикл, примерно так:

for /f "tokens=* delims=" %%a in ('dir /od ...') do (
  echo %%a
<тут команды тела цикла>
)

В цикле просто на первой итерации копируете файл в to и to2 и выходите из цикла (goto).
Для дальнейших действий аналогичные циклы по соответствующим каталогам, только пропускаете первых 5 итераций, на остальных файлы удаляете. Пропустить 5 итераций в цикле можно либо счетчиком в теле цикла, либо есть опция цикла skip.
Примерно схема уже должна быть ясна.
Отработайте этапы команды по одному, а потом запихните все этапы в один батник.
Детали применения команд смотри:

dir /?
for /?
set /?
goto /?

Comments

[Akina]

Пропустить 5 итераций в цикле можно либо счетчиком в теле цикла, либо есть опция цикла skip.

Skip всё равно требует счётчика... а поскольку он должен меняться в итерациях, потребуется ещё setlocal enabledelayedexpansion.

[wisgest]

Akina, дважды нет:
1) skip= — число первых пропускаемых строк в файле или в потоке при обработке их в for /f;
2) в арифметических операциях переменные не заключаются ни в знаки процентов, ни в восклицательные знаки (можно, конечно, например, для индексов псевдомассивов…) и не требуют enabledelayedexpansion.

[unk1nD000]

res2001 Подскажи пожалуйста, при отсутсвии директорий в папке назначения они ведь не будут создаваться, получается мне нужно добавить проверку на наличие папок и при их отсутсвии создать их?

@echo off
Setlocal EnableDelayedExpansion
set srv_folder=c:\srv\
NET USE O: \\10.10.10.103\backup.srv /PERSISTENT:NO /User:domain.local\cooladmin greatpass
set Backup_folder=O:\
set local_folder=c:\bak\
for /f "usebackq tokens=*" %%a in (`dir /b %Backup_folder%`) do call :DelFromBackup_folder "%%a"
for /f "usebackq tokens=*" %%a in (`dir /b %srv_folder%`) do call :CopyToBackup_folders "%%a"
pause
goto :eof
:DelFromBackup_folder
set /a y=0
for /f "usebackq tokens=*" %%b in (`dir /t:w /o:-d /b %Backup_folder%%~1`) do (
	set /a y+=1
	if !y! GTR 4 (echo " del " %Backup_folder%%~1\%%b) 
)
exit /B
:CopyToBackup_folders
set /a y=0
for /f "usebackq tokens=*" %%b in (`dir /t:w /o:-d /b %srv_folder%%~1`) do (
	set /a y+=1
	if !y! ==1 (echo "copy " %srv_folder%%~1\%%b " " %Backup_folder%%~1\%%b) 
	if !y! GTR 1 (echo "del " %srv_folder%%~1\%%b) 
	if !y! GTR 1 (echo "del " %local_folder%%~1\%%b)
	if !y! ==1 (echo "copy " %srv_folder%%~1\%%b %local_folder%%~1\%%b)
)
exit /B

[res2001]

unk1nD000, Не плохо для первого раза!
Каталоги можете сразу создавать, с перенаправлением вывода ошибок в nul. На существующие каталоги md просто ругнется.

[res2001]

unk1nD000, Кстати, копировать можно с помощью xcopy, она умеет воспроизводить иерархию подкаталогов

[unk1nD000]

res2001, такой вот итог у меня получился, всем спасибо за помощь <3

@echo off
chcp 1251
Setlocal EnableDelayedExpansion
net use delete /yes
net use z: \\ip.add.res.host\folder /PERSISTENT:NO /user:triumf.local\user pass
set srv_folder=path\
set Backup_folder=path\
set Backup_folder_2=path\
for /f "usebackq tokens=*" %%a in (`dir /b %Backup_folder%`) do call :DelFromBackup_folder "%%a"
for /f "usebackq tokens=*" %%b in (`dir /b %Backup_folder_2%`) do call :DelFromBackup_folder_2 "%%b"
for /f "usebackq tokens=*" %%c in (`dir /b %srv_folder%`) do call :DelFromsrv_folder "%%c"
robocopy %srv_folder% %Backup_folder% /s /LOG+:%Backup_folder_2%robolog.txt
robocopy %srv_folder% O:\  /s /log+:%Backup_folder%robolog.txt
goto :eof
pause
:DelFromBackup_folder
set /a y=0
for /f "usebackq tokens=*" %%d in (`dir /t:w /o:-d /b %Backup_folder%%~1%`) do (
	set /a y+=1
	if !y! GTR 4 (del %Backup_folder%%~1\%%d) 
)

:DelFromBackup_folder_2
set /a y=0
for /f "usebackq tokens=*" %%e in (`dir /t:w /o:-d /b %Backup_folder_2%%~1%`) do (
	set /a y+=1
	if !y! == 0(del %Backup_folder_2%%~1\%%e) 
)
:DelFromsrv_folder
set /a y=0
for /f "usebackq tokens=*" %%f in (`dir /t:w /o:-d /b %srv_folder%%~1%`) do (
	set /a y+=1
	if !y! GTR 1 (del %srv_folder%%~1\%%f) 
)
exit /b