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

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

Ветеран


Contributor


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

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


Код: Выделить весь код
@Echo Off
Cls
	Set "FileIn=Z:\Box_In\*_*.pdf"
	Set /A Len=20

	Set "@@Out01010101010101010101=Z:\Box_Out\Варкалось!"
	Set "@@Out02020202020202020202=Z:\Box_Out\Варкалось!\Хливкие шорьки"
	Set "@@Out03030303030303030303=Z:\Box_Out\Варкалось!\Хливкие шорьки\Пырялись по наве"

	Set /P Prefix="Укажите добавляемый префикс: "

	FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@@Out"`) DO (
		Set "S=%%i"
		Call :Name "%%j" "%%S:~-%Len%%%" "%FileIn%" "%Prefix%_"
	)

	Set /A N=0
	For %%i In ("%FileIn%") Do Set /A N+=1
	Echo !!! Осталось неперемещенными %N% файлов "%FileIn%"
pause
GoTo :Eof

:Name
	Set "In=%~3"
	Call Set "In=%%In:.=%~2.%%"
	For %%f In ("%In%") Do >nul Move /Y "%%f" "%~1\%~4%%~nxf"
Exit /B 0

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

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

Отправлено: 19:59, 14-02-2019 | #18