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

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

Ветеран


Contributor


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

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


palexa,
А попробуйте вот такой батник
Код: Выделить весь код
@Echo Off
cls
	Set "BoxIn=D:\Мой контент"
	Set "Out=D:\Мой контент.inf"

	Set "Def="
	Set "Marg=   "
	Set "Marg="
	
	Call :DSize "%BoxIn%" "iSize"
	>"%Out%" Echo %iSize%  %BoxIn%

	For /F "usebackq delims=" %%d IN (`2^>nul Dir "%BoxIn%" /B /A:D`) DO Call :Out "%BoxIn%\%%d" %Def%- "%Marg%" 
pause
GoTo :Eof

:Out
	Call :DSize %1 "iSize"
	>>"%Out%" Echo %iSize%  %~3%2%~nx1
	For /F "usebackq delims=" %%d IN (`2^>nul Dir %1 /B /A:D`) DO Call :Out "%~1\%%d" %2- "%~3%Marg%"
GoTo :Eof

:DSize
SetLocal EnableExtensions EnableDelayedExpansion
	For /F "usebackq delims=" %%z IN (`2^>nul Dir %1 /S /A`) DO Set ZZ=!Z1! &Set Z1=%%z
	Set "ZZ=%ZZ:~5%"
EndLocal &Set "%~2=%ZZ%"
GoTo :Eof
Цитата Iska:
Не будет. Вы же его создаёте после подсчёта. »
Увы, будет. После подсчета файл записывается внутрь рассматриваемой папки и его размер в общем итоге не учтен.
Цитата megaloman:
Либо надо явно прописать другой путь к выходному файлу в любое доступное место вне анализируемой »

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


Последний раз редактировалось megaloman, 10-11-2018 в 20:26. Причина: Почему-то так, с ключом /A, работает правильнее???


Отправлено: 17:43, 10-11-2018 | #19