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

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

Ветеран


Contributor


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

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


Код: Выделить весь код
@Echo Off
cls
SetLocal EnableExtensions EnableDelayedExpansion
	Set "BoxIn=%~dp0"
rem	Set "BoxIn=Z:\Box_In"

	Set "Mask=.*[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\.*.*"

	Pushd "%BoxIn%" ||(Echo !!! Folder "%BoxIn%" not found &Pause &Exit /B 2) 
	For /F "usebackq delims=" %%f In (`2^>nul Dir /B /A:-D ^|FindStr /B /R /C:"%Mask%"`) Do (
		Set "Name=%%~nf"
		Set "FName=!Name:~-8!"
		Call Set "Name=%%Name:  !FName!=!FName!%%"
		Call Set "Name=%%Name: !FName!=!FName!%%"
		2>nul Md "!Name:~0,-8!"
		>nul Call Move /Y "%%f" "!Name:~0,-8!\!FName!%%~xf"
	)
	Popd
pause
Exit /B 0
перед цифровой частью не должно быть более 3 пробелов

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

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

Отправлено: 16:15, 11-10-2023 | #15