Если
Цитата megaloman:
Вам просто надо рассмотреть корень папки \\Server\Расшаренная папка\сетевая папка\*.pdf и их разбросать по подпапкам: »
|
Код:
![Выделить весь код](images/misc/selectcode.png)
@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:
Можно ли добавить в этом случае цифру в названии к перемещаемому файлу, что бы тот его не стер? »
|
Учтено.