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

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

Ветеран


Contributor


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

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


jordan_74,
Если элементарно доработать скрипт для смеси файлов
ПрефиксНомерРасширение
ПрефиксНомерСуффиксРасширение
при условии что нет — копия — копия
Код: Выделить весь код
@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "Folds="1111" "2222""
	Set "Pref=check"
	Set "Suff= - копия"
	Set /A Max=1000

	Set "BoxOut=Z:\Box_In\Total"
	If Not Exist "%BoxOut%" Md "%BoxOut%"

	Set /A Max1=%Max%-1
	FOR /L %%n IN (0,1,%Max1%) DO FOR %%d IN (%Folds%) DO (
		FOR %%f IN ("%BoxIn%\%%~d\%Pref%%%n.*") Do (
			Set /A MMax=%Max%+%%n
			Call Copy "%%f" "%BoxOut%\%Pref%%%MMax:~1%%_%%~d%%~xf" >nul
			Call Ren "%%f" "%Pref%%%MMax:~1%%_%%~d%%~xf" >nul
		)
		FOR %%f IN ("%BoxIn%\%%~d\%Pref%%%n%Suff%.*") Do (
			Set /A MMax=%Max%+%%n
			Call Copy "%%f" "%BoxOut%\%Pref%%%MMax:~1%%_%%~d%%~xf" >nul
			Call Ren "%%f" "%Pref%%%MMax:~1%%_%%~d%Suff%%%~xf" >nul
		)
	)
Pause
GoTo :Eof
Суффикс может быть любым, только указывайте в нём все знаки, в том числе и пробелы в начале и конце суффикса. Если в префиксе или суффиксе есть кириллические символы, извольте сохранить скрипт в 866 кодировке.

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

Это сообщение посчитали полезным следующие участники:

Отправлено: 15:53, 20-08-2018 | #36