[palexa]

работает батник, только слишком много информации, выводит все подпапки, абсолютно все

Но если речь зашла о батнике, Вы не могли бы выложить код батника, который посчитает размер как и предоставленный Вами vbs
размер каждой папки в директории ну и в конце(в начале) размер этого каталога

баником удобнее будет

[megaloman]

palexa, Ломать - не строить, душа не болит. Закомментируйте строку

Код:

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

Кстати, подправил код: корректнее в выделенной строке параметр взять в кавычки.
Добавил /A в выделенной строке.

[palexa]

Кстати, что бы читать нормально файл блокнотом, пришлось добавить кодировку в строку

Код:

For /F "usebackq delims=" %%z IN (`2^>nul chcp 1251^& Dir %1 /S /A`) DO Set ZZ=!Z1! &Set Z1=%%z

[megaloman]

palexa, а почему бы не добавить
chcp 1251 >nul
в самое начало батника, третей строкой, а не внутрь цикла. При этом, естественно, и сам батник сохранить в 1251 при наличии кириллицы в задаваемых путях?

[Iska]

Лучше обзавестись вменяемым средством для работы с поддержкой различных кодировок.

[palexa]

ещё хочу спросить, как в этом батнике сделать что бы он не переписывал файл, а дописывал строки ниже

[megaloman]

palexa, вместо
>"%Out%" Echo %iSize% %BoxIn%
>>"%Out%" Echo %iSize% %BoxIn%
А еще лучше им не пользоваться - по сравнению с VBS медленно.

[palexa]

спасибо

Заметил что на много медленнее, но пока устроит

[megaloman]

palexa,

Вот вариант: гибрид bat и js, работает многократно быстрее голимого CMD, можно получить байты, килобайты, мегабайты, гигабайты

Код:

@set @E=1; /*

@Echo Off
	CHCP 1251 >nul
	Set "BoxIn=D:\Мой контент"

	Set  "Out=D:\Мой контент байт.inf"
	Set "Out1=D:\Мой контент килобайт.inf"
	Set "Out2=D:\Мой контент мегабайт.inf"
	Set "Out3=D:\Мой контент гигабайт.inf"

	>>"%Out%"  Call :InDir "%BoxIn%"
	>"%Out1%" Call :InDir "%BoxIn%" 1
	>"%Out2%" Call :InDir "%BoxIn%" 2
	>"%Out3%" Call :InDir "%BoxIn%" 3
Pause
GoTo :Eof

:InDir
	FOR /F "usebackq delims=" %%z IN (`Cscript //NoLogo /E:jscript "%~dpnx0" "%~1" "%~2"`) DO Call :Out "%%z" "%~1" "%~2"
	For /F "usebackq delims=" %%d IN (`2^>nul Dir "%~1" /B /A:D`) DO (
		FOR /F "usebackq delims=" %%z IN (`Cscript //NoLogo /E:jscript "%~dpnx0" "%~1\%%d" "%~2"`) DO Call :Out "%%z" "%%d" "%~2"
	)
GoTo :Eof

:Out
SetLocal
	Set "S=             %~1"
	Set "S=%S:~-12%"
	If "%~3"=="1" Set "S=%S:~-9%"
	If "%~3"=="2" Set "S=%S:~-6%"
	If "%~3"=="3" Set "S=%S:~-3%"
	Echo %S% %2
EndLocal
GoTo :Eof

*/

var oArg = WScript.Arguments;
if (oArg.Count() < 1) {
	WScript.Echo("Arguments absent");
	WScript.Quit(1);
}

var FSO=WScript.CreateObject("Scripting.FileSystemObject");

if (!FSO.FolderExists(oArg(0))) {
	WScript.Echo(oArg(0) + " not found");
	WScript.Quit(2);
}

try {var sFold=FSO.GetFolder(oArg(0)).Size}
	catch (err) {if (err != 0) {
			WScript.Echo(oArg(0)+" "+err.description);
			WScript.Quit(3)}
			}
if (oArg.Count() == 2) {
	if (oArg(1)==1) sFold = Math.round(sFold/1024); 
	if (oArg(1)==2) sFold = Math.round(sFold/1024/1024); 
	if (oArg(1)==3) sFold = Math.round(sFold/1024/1024/1024); 
}

WScript.Echo(sFold);
WScript.Quit(0)

Обратите внимание, здесь сделана возможность выдавать размер папки в разных единицах. В этом примере - 4 выходных файла. Оставьте вызов только одного варианта. Чтобы выходной файл дописывался, вместо > рисуйте >>

[palexa]

Спасибо, попробую