[Busla]

Нудно на диске D повторить структуру каталогов с R, но содержимое оставить только в директориях КМ/КЖ?
Или найти такие директории и покидать их в корень D ?

[buntr]

Нудно на диске D повторить структуру каталогов с R, но содержимое оставить только в директориях КМ/КЖ? Или найти такие директории и покидать их в корень D ? »

Первое, необходимо повторить на диске D структуру каталогов с R но содержимое оставить только в директориях с КМ/КЖ.
Одно но, повторять структуру каталогов нужно только не для всех папок, а только для копируемых т.е. для папок содержащих в названии буквы КЖ/КМ.
Мой код это делает, но ищет не папки, а файлы...

[megaloman]

Код:

@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 /A:D`) DO (
		Echo %%d
		>nul xcopy "%BoxIn%\%%d\*.*" "%BoxOut%\%%d\" /E /Q /Y /R /H /Z
	)
	Popd
pause
GoTo :Eof

[Iska]

buntr, попробуйте так:

Скрытый текст

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sSourceFolder=r:\
set sDestFolder=d:\1
set sMask="*КМ*.*" "*КЖ*.*"

if exist "%sSourceFolder%\." (
	if exist "%sDestFolder%\." (
		pushd "%sSourceFolder%" && (
			for /f "usebackq delims=" %%i in (`2^>nul dir /b /a:d %sMask%`) do (
				if not exist "%sDestFolder%\%%~i\." md "%sDestFolder%\%%~i"
				xcopy.exe "%%~i\*.*" "%sDestFolder%\%%~i\" /e /f /h /r /y
			) 
			popd
		)
	) else (
		echo Can't find destination folder [%sDestFolder%].
		exit /b 2
	)
) else (
	echo Can't find source folder [%sSourceFolder%].
	exit /b 1
)

endlocal
exit /b 0

[buntr]

Код: »

Ничего не происходит.

[buntr]

Код: »

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

[buntr]

Вы сохранили код в 866 кодировке? Пути свои указали? Переименуйте свой командный файл в txt и предоставьте его. »

Да, я перекодировал в 866. Файл выложил. Пути указал вот:

Код:

@Echo On
cls
	Set "BoxIn=r:"
	Set "MaskIn="*КЖ*.*" "*КМ*.*""
 
	Set "BoxOut=d:\1" 

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

[buntr]

В командном окне проделайте »

Прикладываю. Хочу добавить, что R это сетевой диск, я имею доступ только для чтения.

[megaloman]

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

Код:

@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