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

Показать сообщение отдельно

Ветеран


Contributor


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

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


KamikadZZe,
Цитата:
Хотелось бы осуществить поиск в каталоге с подкаталогами файлов по маскам "files1", ....... Т.е. файл с маской "files1" копировался/перемещался бы в каталог A,
При этом структурв каталогов не учитывается? То есть, каталог A содержит только файлы по маске "files1" и не имеет подкаталогов?

Как понял задачу, такое и предлагаю решение, подвиг уважаемого Iska, вникнувшего в Ваш код, повторить не берусь. Лучше бы Вы описали задачу с чистого листа.
Код: Выделить весь код
@Echo Off

Set LogFile=%0.log

Call :MoveSub "Q:\From1" "*.xls" "Q:\Out1"
Call :MoveSub "Q:\From2" "*.d*" "Q:\Out2"
Call :MoveSub "Q:\From3" "*file1*.*" "Q:\Out3"
Call :MoveSub "Q:\From4" "*file2*.*" "Z:\Out4"

GoTo :Eof

:MoveSub

If Not Exist %3 md %3
If Not Exist %3 (
	Echo %Date% %Time% Папка %3 не создана >>"%LogFile%"
	GoTo :Eof
)

FOR /F "usebackq delims=" %%i IN (`Dir /b /s /A:-D "%~1\%~2" 2^>Nul`) DO (
	Move /Y "%%i" "%~3\" 
	If Exist "%~3\%%~nxi" (
		Echo %Date% %Time% "%%i" --^> "%~3\%%~nxi" >>"%LogFile%"
	) Else (
		Echo %Date% %Time% "%%i" переместить не удалось
	)
)

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


Последний раз редактировалось megaloman, 07-08-2014 в 11:30.

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

Отправлено: 10:24, 07-08-2014 | #6