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

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

Ветеран


Contributor


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

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


Код: Выделить весь код
@Echo Off
cls
>nul Chcp 1251
	Set "BoxIn=Z:\Users\Users\Desktop\Февраль 2022"
rem	Set "BoxIn=%~dp0"
	Set "BoxOut=%BoxIn%"

	Set "Ext=xlsx"

	If "%BoxIn:~-1%"=="\"  Set "BoxIn=%BoxIn:~0,-1%"
	If "%BoxOut:~-1%"=="\" Set "BoxOut=%BoxOut:~0,-1%"

	For /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\*.%Ext%" /B /A:-D ^| FindStr/I /R /V /C:"^.*([0-9]*)\.%Ext%$"`) Do (
		2>nul Md "%BoxOut%\%%~nf"
		>nul Move "%BoxIn%\%%f" "%BoxOut%\%%~nf\"
		>nul Move "%BoxIn%\%%~nf(*)%%~xf" "%BoxOut%\%%~nf\"
	)
Exit /B
Путь к входной и выходной папке укажите свой. Я здесь указал их одинаковыми. Если батник в исходной папке, уберите rem

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

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

Отправлено: 00:23, 24-02-2022 | #15