[it3]

Или же, сделать так:
1. Перемещение файлов без перезаписи (если имя уже такое существует), но не теряя новый файл (например в его имя добавить какой нибудь символ).
и
2. Переименовать всё содержимое в папке в:

"2018-01-18_(1).tif",
"2018-01-18_(2).tif",
"2018-01-18_(3).tif",
"2018-01-18_(4).tif",
"2018-01-18_(5).tif",
"2018-01-18_(6).tif",
... ... ... ... ... ... ...
"2018-01-18_(7000).tif",
... ... ... ... ... ... ...

[megaloman]

it3, цель батника- уменьшить число файлов в папке NaklScan. Откуда берётся исходная нумерация? Каждый день она начинается с 1? Программа сканирования сама определяет исходный номер и продолжает нумерацию сегодняшнего дня? Тогда зачем что-то переименовывать? Пусть батник оставляет в папке NaklScan, например, 1000 последних файлов (или вообще 1 последний, чтобы программа сканирования продолжила нумерацию), а всё остальное перемещает в NaklScan5, причем не в общую кучу, а по подпапкам, для каждого дня своя. Например: NaklScan5\гггг-мм-дд\

[it3]

it3, цель батника- уменьшить число файлов в папке NaklScan. Откуда берётся исходная нумерация? Каждый день она начинается с 1? »

Каждый день она начинается с 1.

Пусть батник оставляет в папке NaklScan, например, 1000 последних файлов, а всё остальное перемещает в NaklScan5, причем не в общую кучу, а по подпапкам, для каждого дня своя. Например: NaklScan5\гггг-мм-дд\ »

Задача: Все файлы должны находиться в одном каталоге, без подкаталогов.

[it3]

Оставляем 1 файл в папке NaklScan, чтобы программа сканирования могла продолжить нумерацию, а всеостальные перемещаем в NaklScan5. Никакого дублирования имён. »

Переместили:

"2018-01-18_(2).tif",
"2018-01-18_(3).tif",
"2018-01-18_(4).tif",
"2018-01-18_(5).tif",

Оставили:

"2018-01-18_(1).tif"

Сканируем, создаются новые имена:

"2018-01-18_(2).tif",
"2018-01-18_(3).tif",
"2018-01-18_(4).tif",
"2018-01-18_(5).tif",

При перемещении - они не должны заменяться.

[megaloman]

it3, Переместили:

"2018-01-18_(1).tif",
"2018-01-18_(2).tif",
"2018-01-18_(3).tif",
"2018-01-18_(4).tif",

Оставили:

"2018-01-18_(5).tif"

Сканируем, создаются новые имена:

"2018-01-18_(6).tif",
"2018-01-18_(7).tif",
"2018-01-18_(8).tif",
"2018-01-18_(9).tif",

При перемещении - они не будут заменяться, если программа сканирования продолжит нумерацию.
И вообще, в любом случае надо не перемещать в другую папку по 1000 файлов, а оставлять в исходной минимальное количество, например 1.

[it3]

it3, Переместили: "2018-01-18_(1).tif", "2018-01-18_(2).tif", "2018-01-18_(3).tif", "2018-01-18_(4).tif", Оставили: "2018-01-18_(5).tif" Сканируем, создаются новые имена: "2018-01-18_(6).tif", "2018-01-18_(7).tif", "2018-01-18_(8).tif", "2018-01-18_(9).tif", При перемещении - они не будут заменяться, если программа сканирования продолжит нумерацию. И вообще, в любом случае надо не перемещать в другую папку по 1000 файлов, а оставлять в исходной минимальное количество, например 1. »

Прошу прощения.
Протестировал.

Если мы переместили:

"2018-01-18_(1).tif",
"2018-01-18_(2).tif",
"2018-01-18_(3).tif",
"2018-01-18_(4).tif",

Оставили:

"2018-01-18_(5).tif"

Сканируем, создаются новые имена:

"2018-01-18_(1).tif",
"2018-01-18_(2).tif",
"2018-01-18_(3).tif",
"2018-01-18_(4).tif".

[megaloman]

Оставили: "2018-01-18_(5).tif" Сканируем, создаются новые имена: "2018-01-18_(1).tif", "2018-01-18_(2).tif", "2018-01-18_(3).tif", "2018-01-18_(4).tif". »

Ну, раз пошла такая вакханалия, то вот решение:

Забираем всё из папки NaklScan в папку NaklScan5, в папке NaklScan5 нумерация сплошная для каждого дня, от более старого к более новому, не вижу смысла что-то оставлять в NaklScan и переписывать оттуда файлы порциями

Код:

@Echo Off
cls

Set "BoxIn=Z:\Box_In\NaklScan"
Set "BoxOut=Z:\Box_In\NaklScan5"
Set "Mask=20??-??-??_(*).tif"

If Not Exist "%BoxOut%" Md "%BoxOut%"

SetLocal EnableExtensions EnableDelayedExpansion

Set "TDate="
FOR /F "usebackq tokens=1,2* delims=()" %%i IN (`2^>nul Dir "%BoxIn%\%Mask%" /A:-D /B /O:D /T:C`) DO (
	If Not "!TDate!"=="%%i" (
		Set "TDate=%%i"
		Call :LastNum "%%i" "%%k" "N"
	)
	Set /A N+=1
	>nul Move "%BoxIn%\%%i(%%j)%%k" "%BoxOut%\%%i(!N!)%%k"
)
GoTo :Eof

:LastNum
	Set /A %~3=0
	FOR /F "usebackq tokens=2 delims=()" %%n IN (`2^>nul Dir "%BoxOut%\%~1(*)%~2" /A:-D /B /O:-D /T:C`) DO Set /A %~3=%%n &GoTo :Eof
GoTo :Eof

Пропишите свои пути в начале скрипта!

Всё же задумался бы насчет того, чтобы файлы забрасывались не в общую кучу, а рассовывались по папкам за день. Иметь мильён файлов в одной папке не фэншуйно.

[Iska]

Оставили: "2018-01-18_(5).tif" Сканируем, создаются новые имена: "2018-01-18_(1).tif", "2018-01-18_(2).tif", "2018-01-18_(3).tif", "2018-01-18_(4).tif". »

Я всё ждал, когда сей факт внезапно всплывёт в процессе реализации хотелки порциями.

[it3]

megaloman, огромное спасибо. BAT-ник работает как надо.
Вопрос закрыт.

[DJ Mogarych]

Если в сканере можно настроить именование файлов не только днём, но и прибавлять к нему время, типа 2018-01-18_12-15-23.tif - проблемы бы вообще не существовало. Можно было бы переносить в какие угодно подпапки, хоть по часам.

Если этого сделать нельзя, тогда можно файлы переименовывать по дате создания перед копированием, а затем уже рассовывать по папкам.