[megaloman]

Вариант с подпапками и исключениями

Код:

@Echo Off &Cls
	Set "DirIn=Z:\У попа была собака"
	Set "DirOut=Z:\Поп ее любил"
	Set Exclude="\Она съела\Кусок мяса\" "\Он её убил\"

	If Not Exist "%DirIn%\" (Echo !!! Folder "%DirIn%" not found &Pause &Exit /B 2) 
	Pushd "%DirOut%" ||(Echo !!! Folder "%DirOut%" not found &Pause &Exit /B 2) 
		>"~~~Exclude" (For %%d In (%Exclude%) Do Echo %%~d)
		For /F "usebackq delims=" %%f In (`2^>nul xcopy /EXCLUDE:~~~Exclude /D /S /Y /L /F "%DirIn%\*.*" "%DirOut%\" ^| Find "\"`) Do (
			Set "Out=%%f"
			(Call Set Out=%%Out: -^> =?%%)
			For /F "usebackq tokens=1,2 delims=?" %%i In (`Call Echo %%Out%%`) Do (
				Echo "%%i" "%%j"
				If Not Exist  "%%j" (>nul Xcopy /Y /F "%%i" "%%~dpj"
				) Else (Call :CopyNum "%%i" "%%j")
			)
		)
		Del ~~~Exclude
	Popd
Pause
Exit /B 0

:CopyNum
	Set /A i=1
	:Begin
		Set "Add=(%i%)"
		If Not Exist "%~dpn2%Add%%~x2" (
			>nul Ren %2 "%~n1%Add%%~x1"
			>nul copy %1 "%~dp2"
			Exit /B
		)
		Set /A i+=1 
	GoTo :Begin 
Exit /B

[Skylear]

Проверил. Вроде отрабатывает. Единственное - это не копирует пустые каталоги. И еще можно сделать, чтобы выводил в cmd что делает? Паузу я так понимаю, можно просто закомментировать.

[megaloman]

не копирует пустые каталоги. И еще можно сделать, чтобы выводил в cmd что делает? »

Чем дальше в лес, тем толще партизаны. Структурв воспроизводится. Log-файл ведётся

Код:

@Echo Off &Cls
	Set "DirIn=Z:\У попа была собака"
	Set "DirOut=Z:\Поп ее любил"
	Set Exclude="\Она съела\Кусок мяса\" "\Он её убил\"
	Set "Log=%DirOut%\~~~%~nx0.log"

	If Not Exist "%DirIn%\" (Echo !!! Folder "%DirIn%" not found &Pause &Exit /B 2) 
	Pushd "%DirOut%" ||(Echo !!! Folder "%DirOut%" not found &Pause &Exit /B 2) 
		>"~~~Exclude" (For %%d In (%Exclude%) Do Echo %%~d)
		xcopy /EXCLUDE:~~~Exclude /T /E /Y "%DirIn%\*.*" "%DirOut%\"
		>>"%Log%" Echo +++ %Date% %Time%
		For /F "usebackq delims=" %%f In (`2^>nul xcopy /EXCLUDE:~~~Exclude /D /S /Y /L /F "%DirIn%\*.*" "%DirOut%\" ^| Find "\"`) Do (
			Set "Out=%%f"
			(Call Set Out=%%Out: -^> =?%%)
			For /F "usebackq tokens=1,2 delims=?" %%i In (`Call Echo %%Out%%`) Do (
				Echo "%%i" "%%j"
				If Not Exist  "%%j" (
					>nul Xcopy /Y /F "%%i" "%%~dpj" &>>"%Log%" Echo     "%%i" -^> "%%~dpj" 
				) Else (Call :CopyNum "%%i" "%%j")
			)
		)
		Del ~~~Exclude
	Popd
Pause
Exit /B 0

:CopyNum
	Set /A i=1
	:Begin
		Set "Add=(%i%)"
		If Not Exist "%~dpn2%Add%%~x2" (
			>nul Ren %2 "%~n1%Add%%~x1" &>>"%Log%" Echo     === %2 -^> "%~n1%Add%%~x1" 
			>nul copy %1 %2 &>>"%Log%" Echo     %1 -^> %2 
			Exit /B
		)
		Set /A i+=1 
	GoTo :Begin 
Exit /B