Имя пользователя:
Пароль:
 

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

Ветеран


Contributor


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

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


Serezha373737, Бат-файл. Сохранить в 866 кодировке. Ввозможны пропуски файлов с спецсимволами.
Код: Выделить весь код
@Echo Off
cls
	Set "BoxIn=D:\Мой контент"
	Set "BoxOut=Z:\Box_Out"

	Xcopy "%BoxIn%\*.*" "%BoxOut%\" /T /E
	For /F "usebackq delims=" %%f In (`Xcopy "%BoxIn%" "%BoxOut%" /S /Y /F /L`) Do (
		Set "Out=%%f"
		Call :TxtMake "%%Out: -> =" "%%"
	)
pause
Exit /B 

:TxtMake
	If Not Exist %1 Exit /b 1
	Set "Dt=%~t1"
	Set "Dt=%Dt: =-%"
	Set "Dt=%Dt::=.%"
 	>"%~2-%Dt%.txt" Cd.
Exit /B 0

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

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

Отправлено: 18:53, 02-06-2020 | #9