[Iska]

Не работает, окно сразу закрывается. »

Работает. Открываете командную строку и исполняете пакетный файл в ней.

Прикладываю. »

Ну, и где в именах каталогов:

Код:

Архив
Технический архив

…содержащие в названии ключевые слова "КМ" и "КЖ" »

?!

[buntr]

Ну, и где в именах каталогов: »

Может я не совсем правильно описал задачу, но папки с наименованиями с ключевыми словами КМ КЖ находятся глубже в директориях диска R. Наверно в коде сначала необходимо выполнить поиск таких папок потом уже копирование.

[buntr]

Я неверно понял задачу: считал, что ваши КМ КЖ папки только в корне R: Попробуйте так: »

Нехочет...

[Iska]

но папки с наименованиями с ключевыми словами КМ КЖ находятся глубже в директориях диска R »

На каком именно уровне вложенности они находятся?

[buntr]

На каком именно уровне вложенности они находятся? »

Уровни совершенно разные...от 2 до 10 и более вложений.

Друзья, подождите! Кажется процесс идет, надо было просто подождать.

[megaloman]

Этот вариант надёжнее, но он работать у Вас скорее всего не будет: похоже, нет указанных папок, так как dir даже не выходит на Echo для отображения имени папки. Возможно, дело в именах папок: допустим, Вы считаете, что К -русская, а на самом деле -K -латинская. У меня работает с разными уровнями вложенности, ИМХО, это для моего кода не принципиально, лишь бы длина полного имени файла была не слишком большая

Код:

@Echo Off
cls
	Set "BoxIn=r:"
	Set "MaskIn="*КЖ*.*" "*КМ*.*""
 
	Set "BoxOut=Z:\Box_Out" 

	Pushd "%BoxIn%\" &&(
	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir %MaskIn% /B /S /A:D`) DO (
		Echo %%d
		>nul xcopy "%%d\*.*" "%BoxOut%%%~pnxd\" /E /Q /Y /R /H /Z /D
	)
	Popd)
pause
GoTo :Eof

Попробуйте проделать
dir R:\*КЖ* R:\*КМ* /B /S /A:D >D:\txt2.txt
Вы увидите в файле D:\txt2.txt искомые папки?

[buntr]

Этот вариант надёжнее »

Ваш предыдущий код работает, просто нужно подождать минут 5 и процесс начинается.

Попробуйте проделать dir R:\*КЖ* R:\*КМ* /B /S /A:D >D:\txt2.txt Вы увидите в файле D:\txt2.txt искомые папки? »

Проделал, да, искомые папки находит. Благодарю.

Еще один вопрос, могу ли я добавить новые ключевые фразы для поиска?

[YuS_2]

нужно подождать минут 5 »

хмм... попробуйте powershell:

Код:

$src='R:\'
$dst='D:\1'
$regexp = '(кж|км)[^\\]*$'

if (!(test-path $dst -patht container)){md $dst|out-null}
copy ((dir "$src\*" -dir -rec -force) -match $regexp).fullname $dst -rec -force

[megaloman]

buntr,

могу ли я добавить новые ключевые фразы для поиска? »

Можете. Например

Код:

Set "MaskIn="*КЖ*.*" "*КМ*.*" "*kuku*" "тра ля ля-????-*""

[buntr]

Друзья спасибо, задача выполнена, вы настоящие гении!
Отдельную благодарность выражаю: megaloman и Iska