[sov44]

ferget, мне интересней понять cmd.

[Iska]

sov44, и напрасно: в WSH объект Folder имеет свойство «.Size»:

читать дальше »

Код:

Option Explicit

Dim objRegExp
Dim objFolder


Set objRegExp = WScript.CreateObject("VBScript.RegExp")

With objRegExp
	.IgnoreCase = True
	.Pattern = "^\$NtUninstall.+\$$"
End With

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each objFolder In .GetSpecialFolder(0).SubFolders
		If objRegExp.Test(objFolder.Name) Then
			WScript.Echo objFolder.Name, objFolder.Size
		End If
	Next
End With

Set objRegExp = Nothing

WScript.Quit 0

Кстати, под приведённую Вами маску попадают не все потребные папки.

[sov44]

Iska, расчёт и удаление скрытых папок - это дополнение одного большого скрипта в cmd.
За WSH спасибо, положу в копилку
п.с. подскажите аналог

Код:

:: бла-бла

в WSH, VBS

[Iska]

sov44, некорректным меткам в пакетном файле аналога в WSH нет .

[sov44]

некорректным меткам в пакетном файле аналога в WSH нет »

имелось ввиду не метка, а комментарий (или как там его.. )
Как насчёт варианта решения задачи пост 9 ?

[Iska]

sov44, комментарии в пакетном файле оформляются единственным способом — при помощи команды Rem.

На WSH сие выглядит следующим образом: VBScript — Rem Statement; JScript — Comment Statements (Windows Scripting - JScript).

Как насчёт варианта решения задачи пост 9 ? »

Свой вариант я озвучил выше.

Язык — всего лишь инструмент. Какой окажется наиболее приемлем для решения задачи — тот и берётся.

[gora]

sov44, попробуйте так:

Код:

@Echo Off
SetLocal EnableDelayedExpansion
:: Папка для поиска
Set folder=e:\Temp 1\upd
Set Cnt=0
:: Для папок подпадающих под маску
For /F "tokens=*" %%a In ('Dir "%folder%" /ADH /B ^| FindStr "$NtUninstallKB[0-9]*"') Do Call :_sizeDir "%folder%\%%a"
:: Для папок НЕ подпадающих под маску
For %%a In ($hf_mig$ $abde_rew$) Do Call :_sizeDir "%folder%\%%a"
Pause>Nul

:_sizeDir
Set dirsize=0
For /F "skip=4 tokens=1-3" %%a IN ('Dir "%~1" /-C /S /A:-D') Do (
    If !flag!==1 Set dirsize=%%c
    If "%%b"=="файлов:" (Set flag=1) Else (Set flag=0)
)
Set /a dirsizeT=dirsize+0
If Not "%dirsizeT%"=="%dirsize%" Echo Число %dirsize% слишком велико для обработки в CMD&Pause>Nul&Exit
Set /A Cnt +=dirsize
Echo "%~1"
Echo DirSize=%dirsize%	TotalSize=%Cnt%
Echo.
GoTo :EOF

комментарии в пакетном файле оформляются единственным способом — при помощи команды Rem »

Согласен, но "Привычка - вторая натура"

[Iska]

Согласен, но "Привычка - вторая натура" »

Угу. Даже, вон Colorer научили отображать «::» как комментарий, хотя это и неправильно.

[gora]

Даже, вон Colorer научили отображать «::» как комментарий »

Это не я, это коллега AZJIO, хотя мне это нравится, т.к., я использовал «::», пусть и неправильно, но умышленно, как комментарий.

[sov44]

Необходимо исключить из расчёта динамический файл CMD.EXE-087B4001.pf
Возникла сложность с его обозначением.

Код:

For /F "skip=4 tokens=1-3" %%a IN ('Dir "%windir%\Prefetch" /-C /S /A:-D 2^>nul') Do (
if not exist CMD.EXE*********.pf (
    If !flag!==1 Set dirsize=%%c
    If "%%b"=="файлов:" (Set flag=1) Else (Set flag=0)
))
Set /A Cnt +=dirsize