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

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

Ветеран


Contributor


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

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


Не блеск но работает. Возможно, вид текста не устроит. Если принципиально, переделаю.
Код: Выделить весь код
@Echo Off

Set "File1=1b347ND_1700469.fls"
Set "File2=2HPFWUP840.iso"

Set "Out=ies%Date:~0,2%%Date:~3,2%%Date:~6,4%.txt"

Echo Тра-ла-ла "Кукушкино" (ОАО) "Новосибирский">>"%Out%"
Echo %Date:~0,2%.%Date:~3,2%.%Date:~6,4%>>"%Out%"

Set T=%Time: =0%
Echo %T:~0,5%>>"%Out%"

SetLocal EnableExtensions EnableDelayedExpansion

Set "Sum=0 файлов 0 байт"
Set "Last="

If Exist "%File1%" If Exist "%File2%" Call :Summa &Echo %File1%>>"%Out%"&Echo %File2%>>"%Out%"&Echo Файлы успешно приняты>>"%Out%" &GoTo :Eof
If Exist "%File1%" Call :Summa &Echo %File1%>>"%Out%"&Echo Файлы успешно приняты>>"%Out%"&GoTo :Eof
If Exist "%File2%" Call :Summa &Echo %File2%>>"%Out%"&Echo Файлы успешно приняты>>"%Out%"&GoTo :Eof

Echo Вес %Sum%>>"%Out%"
Echo Файлы неуспешно приняты>>"%Out%"

GoTo :Eof

:Summa
 
FOR /F "usebackq tokens=*" %%i in (`dir "%File1%" "%File2%" 2^>nul`) do Set Sum=!Last!&Set Last=%%i
Echo Вес %Sum%>>"%Out%"

GoTo :Eof

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

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

Отправлено: 13:11, 05-12-2014 | #3