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

Показать сообщение отдельно

Ветеран


Contributor


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

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


DJ Mogarych, it3,
Цитата DJ Mogarych:
тогда можно файлы переименовывать по дате создания перед копированием »
Файлы изначально именуются с датой создания как гггг-мм-дд_(хххх).tif, тут уже не за чем напрягаться. Что касается времени создания, Я рассматривал этот вариант, но, увы, в CMD выдернуть время создания файла хотя бы с секундами я не умею, а делать какой-нибудь костыль - при большом количестве файлов это резко замедлит работу.
Вот вариант со временем.
Код: Выделить весь код
@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%"

FOR /F "usebackq tokens=1,2* delims=()" %%i IN (`2^>nul Dir "%BoxIn%\%Mask%" /A:-D /B /O:D /T:C`) DO Call :Transfer "%%i" "%%k" "%BoxIn%\%%i(%%j)%%k"

Pause
GoTo :Eof

:Transfer
	Set "Ftime=%~t3"
	Set "Ftime=%Ftime:~-5%"
	Set "Ftime=%Ftime::=%"
	Set "Ftime=%Ftime: =0%"
	Set /A ND=1
	Set "NewFile=%BoxOut%\%~1%Ftime%%~2"
	:Begin
		If Not Exist "%NewFile%" (
			Move %3 "%NewFile%" >nul 
			GoTo :Eof
		)
		Set /A ND+=1
		Set "NewFile=%BoxOut%\%~1%Ftime%-%ND%%~2"
	GoTo :Begin
GoTo :Eof
Формат имен перемещенных файлов при этом
гггг-мм-дд_ччми.tif
Если за одну минуту создадутся несколько файлов, то имена будут иметь вид:
гггг-мм-дд_ччми.tif
гггг-мм-дд_ччми-2.tif
гггг-мм-дд_ччми-3.tif и т д.

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Отправлено: 16:23, 12-01-2018 | #21