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

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

Ветеран


Contributor


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

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


Если
Цитата megaloman:
Вам просто надо рассмотреть корень папки \\Server\Расшаренная папка\сетевая папка\*.pdf и их разбросать по подпапкам: »
Код: Выделить весь код
@Echo Off
cls
>nul Chcp  1251
	Set "BoxIn=\\192.168.100.23\Test2\MyPdf"
	Set "Mask=*.pdf"
	
	FOR /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D`) DO (
		If Not Exist "%BoxIn%\%%~nf\%%f" (
			2>nul Md "%BoxIn%\%%~nf" &>nul Move "%BoxIn%\%%f" "%BoxIn%\%%~nf\"
		) Else (
			Call :MyMove "%BoxIn%\%%~nf" "%BoxIn%\%%f" 100
		) 
	)
pause
Exit /B

:MyMove
	Set /A N=%3
	If Not Exist %1 Md %1
	:Begin
		Set /A N+=1
		If Exist "%~1\%~n2 (%N:~1%)%~x2" GoTo :Begin
		>Nul Move  %2 "%~1\%~n2 (%N:~1%)%~x2"
Exit /B
Цитата SurkovAA:
Можно ли добавить в этом случае цифру в названии к перемещаемому файлу, что бы тот его не стер? »
Учтено.

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


Последний раз редактировалось megaloman, 09-02-2022 в 18:33.

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

Отправлено: 18:27, 09-02-2022 | #13