[megaloman]

Код:

@Echo Off

Set "GoodFile=Z:\IMG\Good\*.jpg"
Set "AllDirs=Z:\IMG\Instaloader"

FOR /F "usebackq delims=" %%a IN (`Dir "%GoodFile%" /B /A:-D /S 2^>nul`) DO (
	FOR /F "usebackq delims=" %%b IN (`Dir "%AllDirs%\%%~na.*" /B /A:-D /S 2^>nul`) DO (
		XCopy /D /Y "%%b" "%%~dpa" >nul
	)
)

Поправьте пути
Заранее пожалуйста.

[Patroklos]

Суперкруто! Работает как часы. Спасибо большое.
Скажите пожалуйста, а есть ли способ извлечь из пути

Код:

IMG\Instaloader\#motionmood

только имя папки

Код:

#motionmood

Это бы сделало всё ещё круче.

[Patroklos]

Картинки лежат в папках отсортированные по тегам. #ёж, #лиса, #сова. Когда скрипт копирует сателлиты он копирует их в общую папку

Код:

Z:\IMG\InstaloaderBest

В результате ежи, лисы, совы лежат вперемешку
А хотелось бы что бы скрипт копировал в папку InstaloaderBest в подпапку с именем подпапки где находились сателлиты.
То есть он нашел сателлит в папке

Код:

Z:\IMG\Instaloader\#ёж

и скопировал в

Код:

Z:\IMG\InstaloaderBest\#ёж

Пока я решил проблему так:

Код:

Set "FinalDir=E:\IMG\#InstaloaderBest"
XCopy /D /Y "%%b" "%FinalDir%%%~pb" >nul

Но это лишние, абсолютно бесполезные папки

Код:

E:\IMG\#InstaloaderBest\IMG\Instaloader\#ёж

Очень желательно так

Код:

E:\IMG\InstaloaderBest\#ёж

Спасибо вам за помощь.

[megaloman]

Patroklos, ничего не понял!

Далее я просматриваю изображения и понравившиеся копирую в папку E:\IMG\Good »

Вы копируете понравившиеся изображения кучей в одну папку или по подпапкам #ёж, #лиса, #сова? И что хотите получить? Имхо, если кучей, то я бы предложил алгоритм: просматриваем в корне E:\IMG\Good жпг-файлы, ищем их в подпапках #ёж, #лиса, #сова итд папки E:\IMG\Instaloader, при обнаружении его в подпапке, например, #ёж, перемещаю его из корня E:\IMG\Good в Е:\IMG\Good\#ёж, и туда же дописываю файлы-сателлиты. А вот если не найду, то перемещу жпг-файл в отдельную папку, например E:\IMG\Good\#zzzzzzzzzzz

Такой алгоритм избавит от повторных поисков для уже обработанных файлов, что существенно ускорит выполнение скрипта.

Код:

@Echo Off

Set "GoodDir=Z:\IMG\Good"
Set "MaskFile=*.jpg"

Set "AllDirs=Z:\IMG\Instaloader"
Set "MaskDir=#*.*"
Set "NotFound=#zzzzzzz"

FOR /F "usebackq delims=" %%a IN (`Dir "%GoodDir%\%MaskFile%" /B /A:-D 2^>nul`) DO Call :MoveCopy "%%a"
GoTo :Eof

:MoveCopy
	FOR /F "usebackq delims=" %%d IN (`Dir "%AllDirs%\%MaskDir%" /B /A:D /T:W /O:-D 2^>nul`) DO (
		If Exist "%AllDirs%\%%d\%~1" (
			Md "%GoodDir%\%%d" 2>nul
			Move /Y "%GoodDir%\%~1" "%GoodDir%\%%d\" >nul
			XCopy /D /Y "%AllDirs%\%%d\%~n1.*" "%GoodDir%\%%d\" >nul
			GoTo :Eof
		)
	)
	Md "%GoodDir%\%NotFound%" 2>nul
	Move /Y "%GoodDir%\%~1" "%GoodDir%\%NotFound%\" >nul
GoTo :Eof

Пути нарисуйте свои

И еще крамольный вопрос: а зачем иметь одни и те же файлы в двух местах? Может быть, их надо не копировать в Good, а перемещать?

[Patroklos]

Я просматриваю картинки FSViewer. На картинках которые я желаю сохранить я нажимаю хоткей и картинка копируется из папки

Код:

Z:\IMG\Instaloader\#*

в

Код:

Z:\IMG\InstaloaderBest

я бы предложил алгоритм »

Спасибо. Это будет отличное решение.

PS: Пока я писал ответ вы уже дали решение. Спасибо. Сейчас буду пытаться понять что да как.

Идеально! Именно то что надо. Вам надо памятник поставить. Огромное спасибо.

[Patroklos]

И еще крамольный вопрос: »

Скачивается много мусора. Я оставляю ценное для меня а потом всё ненужное удаляю.