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

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

Ветеран


Contributor


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

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


evgenyat, Для вашего примера
Код: Выделить весь код
@Echo Off
cls
	Set "Home=\\Server\Test1\Homes"
	Set "Docs=Z:\Box_In\Docs"
	Set "DocsExt=pdf"
	Set "Names=Z:\Box_In\Docs\names.txt"

	For /F "usebackq tokens=1,2 delims==" %%i In (`2^>nul more "%Names%"`) Do Call :MyCopy %%i %%j ||Echo --- File "%Names%" string %%i=%%j not correct
pause
Exit /B

:MyCopy
	If Exist "%Docs%\* %1,*.%DocsExt%" If Exist "%Home%\%2" >nul Copy "%Docs%\* %1,*.%DocsExt%" "%Home%\%2\" &Exit /B 0
	If Not Exist "%Docs%\* %1,*.%DocsExt%" Echo !!! File "%Docs%\* %1,*.%DocsExt%" not exist
	If Not Exist "%Home%\%2" Echo !!! Folder "%Home%\%2" not exist
Exit /B 2
При невозможности обработать строку из списка, выдаются информационные сообщения, по которым можно разобраться в причинах неуспеха

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


Последний раз редактировалось megaloman, 23-01-2020 в 13:49.


Отправлено: 13:42, 23-01-2020 | #13