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

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

Ветеран


Contributor


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

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


Еcли расширения известны.
C сохранением структуры папок+создаются файлы ^^^^^^.log в каждой выходной папке по расширению
Код: Выделить весь код
@Echo Off
	Set "BoxIn=D:\Мой контент\Книги"
	Set "BoxOut=Z:\Box_Out\Книги"
	Set "Ext=fb2 epub txt pdf txt"

	For %%e IN (%Ext%) DO (
		Md "%BoxOut%.%%e" 2>nul
		>"%BoxOut%.%%e\^^^^^^.log" (For /F "usebackq delims=" %%i IN (`Xcopy /Y /S "%BoxIn%\*.%%e" "%BoxOut%.%%e\"`) DO (
			If Exist "%%i" Echo %%~ti "%%i"
		))
	)
GoTo :Eof
Еcли расширения известны.
Без сохранениея структуры папок+создаются файлы ^^^^^^.log в каждой выходной папке по расширению
Код: Выделить весь код
@Echo Off
	Set "BoxIn=D:\Мой контент\Книги"
	Set "BoxOut=Z:\Box_Out\Книги"
	Set "Ext=fb2 epub txt pdf txt"

	For %%e IN (%Ext%) DO (
		Md "%BoxOut%.%%e" 2>nul
		>"%BoxOut%.%%e\^^^^^^.log" (For /F "usebackq delims=" %%i IN (`Xcopy /L /S "%BoxIn%\*.%%e" "%Tmp%\"`) DO (
			If Exist "%%i" (Copy "%%i" "%BoxOut%.%%e\" >nul &Echo %%~ti "%%i")
		))
	)
GoTo :Eof

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


Последний раз редактировалось megaloman, 26-10-2018 в 21:14.


Отправлено: 20:54, 26-10-2018 | #10