[Iska]

Подскажите, что надо дописать в этот скрипт, что бы в конце был суммирующий результат папки c:\TraLaLa\ »

Ничего.

Быстро

Код:

Option Explicit

WScript.Echo WScript.CreateObject("Scripting.FileSystemObject").GetFolder("C:\Мои проекты").Size

WScript.Quit 0

Правильно

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFile


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		WScript.Echo objFSO.GetFolder(strSourceFolder).Size
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source folder>"
	WScript.Quit 1
End If

WScript.Quit 0

[palexa]

Что значит ничего ?

Скрипт создаёт файл в котором пишет размер + название каждой папки в директории c:\TraLaLa\

Осталось дописать что бы определил размер самой директории c:\TraLaLa\ и тоже дописал в этот файл

Может всё таки поможете ?

[Iska]

Код:

Next

With FSO.GetFolder(DirName)
    Out = Out & CStr(Round(.Size / 2^20, 2)) & "  " & .Name & vbCrLf
End With

Set F = FSO.OpenTextFile(WhereOut, 2, True)

Не проверялось.

[palexa]

не дописывает

[Iska]

Поправил код. Пробуйте.

[megaloman]

palexa, О, неужели это я ваял? Как молоды мы были ... Вставьте между выделенным

Код:

Next

If FSO.FileExists(WhereOut) Then FSO.DeleteFile (WhereOut)

FolderSize = CStr(Round(FSO.GetFolder(DirName).Size / 1024 / 1024, 2))
FolderSize = Right("              " + FolderSize, 14)
Out = Out + FolderSize + "  " + DirName

Set F = FSO.OpenTextFile(WhereOut, 2, True)

Возможна неточность: при существующем пути к Out-файлу общий размер папки после работы скрипта будет отличаться на размер выходного файла. Но, скорее всего, его размер много меньше общего размера папки и на результате не скажется.
Либо надо явно прописать другой путь к выходному файлу в любое доступное место вне анализируемой папки, например

Код:

WhereOut = "Z:\SizeSubDir.inf"

[palexa]

Iska и megaloman спасибо большое

[Iska]

Возможна неточность: при существующем пути к Out-файлу общий размер папки после работы скрипта будет отличаться на размер выходного файла. »

Не будет. Вы же его создаёте после подсчёта.

[megaloman]

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]

Увы, будет. После подсчета файл записывается внутрь рассматриваемой папки и его размер в общем итоге не учтен. »

А… Вы вот в каком плане. Ну, так я про то же. Только я-то полагал, что именно так и будет правильным считать — без его учёта.