Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: [решено] копирование BAT
Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2728
Благодарности: 1697

Профиль | Отправить PM | Цитировать


55kadi, Вы нарисовали пример дерева папок и указали, в какие папки надо копировать, а в какие нет.
Код: Выделить весь код
@Echo Off
SetLocal EnableExtensions EnableDelayedExpansion

Set  "InBox=C:\LOGO\555"
Set "InFile="1.cfg" "2.so" "3.bin""

Set  "OutBox=C:\LOGO\new\launch\968000000000"

FOR /F "usebackq delims=" %%d IN (`Dir "%OutBox%" /B /A:D 2^>nul`) DO (
	Set "LDir=0"
	FOR /F "usebackq delims=" %%p IN (`Dir "%OutBox%\%%d\" /B /A:D 2^>nul`) DO (
		Set "LDir=1"
		Call :Proc "%OutBox%\%%d\%%p\"
	)
	If !LDir!==0 Call :Proc "%OutBox%\%%d\"
)
GoTo :Eof

:Proc
	FOR %%f IN (%InFile%) DO (
		Copy "%InBox%\%%~f" %1 >nul
	)
GoTo :Eof

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:01, 29-10-2016 | #31

Название темы: [решено] копирование BAT