[alpap]

surgutfred,
странно, вы же сами в коде пишете:

rem обязательно параметр %%a в кавычках "%%a" иначе некорректно обработает пути с пробелами »

и тем не менее в xcopy или в robocopy переменные путей в парные кавычки не берете, на свои же грабли наступаете?

[megaloman]

surgutfred,

Пропишите свои пути и маску. Прпробуйте. Напишите

Код:

@Echo Off
	Set "BoxIn=D:\Мой контент"
	Set "BoxOut=Z:\Box_Out\Мой контент"

	Set "Mask=*.bat"
rem	Set "Mask=*.*"
rem	Set "Mask=*.pdf *.fb2 *. *.epub"
	
	For /F "usebackq delims=" %%d IN (`2^>nul Dir "%BoxIn%" /B /S /A:D`) DO (
		Pushd "%%d" &&(
			For /F "usebackq delims=" %%f IN (`2^>nul Dir "%Mask%" /B /A:-D`) DO (
				Set "Nf=%%~tf"
				Call :MySort "%%f" "%BoxOut%\%%Nf:~6,4%%\%%Nf:~3,2%%\%%Nf:~0,2%%" 
			)
		Popd
		)
	)
GoTo :Eof

:MySort 
	If Not Exist %2 Md %2
	Copy %1 "%~2\" >nul || Echo %1  %2
GoTo :Eof

Замечание: копируем файлы по дате последнего изменения. Можно сделать и по дате создания, но придется привлечь wmic, что очень замедлит выполнение
Кроме того, я предполагал, что отображение даты в системе настроено на формат дд.мм.гггг, в противном случае надо код скорректировать

[surgutfred]

странно, вы же сами в коде пишете: »

Пробовал ставить в кавычки, либо вчера у меня мозги уже не работали, либо запутался в переменных, - у меня тогда не отрабатывало вообще. Не копировалось

megaloman, спасибо, в очередной раз выручаете.
На тестовых папках сработало на ура, загоню на помойки, посмотрим что выйдет.
Лишь бы опять команда не загнулась от нагрузки

Почему то на помойках не срабатывает, поменял только пути к папкам. Висит черное окно, и ничего не происходит в конечных папках ничего не появляется.
Думал может проблема в том что в имени некоторых папок есть расширение
(F:\USR_Archive\INET\2018\09.2018\03.09.2018\CONS#1_044770#2018_08_31#23_38_37.usr\CONS#1_044770.USR )
но скопировав в тестовые папки убедился что работает и с ними.

Осталось предположить что у меня слишком большой объем папок с файлами. Он что сначала весь массив считывает перед копированием?


Похоже что так, через некоторое время в итоговой папке стали таки появляться результаты. Фух

[Amunrah]

По-моему все это можно несколько проще записать...

Код:

@echo off
 
set "src=source_dir"
set "dest=destination_dir"

if not exist "%dest%\." md "%dest%"

for /f "delims=" %%f in ('dir "%src%\*.*" /b /s /a:-d') do (
	for /f "tokens=1,2,3 delims=. " %%a in ("%%~tf") do (
		xcopy "%%f" "%dest%\%%c\%%b\%%a\" /ifchy>>"%dest%\log.txt"
	)
)

[puhoj]

По-моему все это можно несколько проще записать... »

всё работает, только как сделать так, чтобы файлы перемещались, а не копировались

[DJ Mogarych]

Вставить команду удаления исходного файла.

[megaloman]

Код:

@Echo Off &Cls
>nul Chcp 1251
	Set "BoxIn=Z:\Box_In"
	Set "BoxOut=Z:\Box_Out"
	Set Mask="*.*"
	Set "Log=Z:\Box_Out\log.txt"

	Pushd "%BoxIn%" || (Echo Folder "%BoxIn%\" not found &Pause &Exit /B 2)
		For /F "usebackq delims=" %%f In (`2^>nul Dir %Mask% /S /B /A:-D /O:D`) Do For /F "tokens=1,2,3 delims=. " %%i In ("%%~tf") Do (
			If Not Exist "%BoxOut%\%%k.%%j.%%i" Md "%BoxOut%\%%k.%%j.%%i"
			>nul Move "%%f" "%BoxOut%\%%k.%%j.%%i\"&&>>"%Log%" Echo "%BoxOut%\%%k.%%j.%%i\" ^<--- "%%f" 
		)
	Popd
Pause
Exit /B 0

По дате изменения