[Iska]

alemaxona, проще расширить скрипт VBScript, наподобие:

Код:

Option Explicit

Dim objFSO

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.GetFolder("c:\Temp").Size > 2^20 Then
	' Здесь код из «старого» скрипта VBS
End If

Set objFSO = Nothing

WScript.Quit 0

[alemaxona]

Iska, спасибо большое! Выручили!

[alemaxona]

Iska, а не подскажешь, как сделать так, чтобы он каждый файл в директории сравнивал на размер, и если находит такой, то как обычно Спасибо!

[Iska]

alemaxona, пожалуйста, ещё раз и уже по-русски.

[alemaxona]

Спасибо! Уже решил! Как обычно, мой язык вперед ленивых рук лезет... Спасибо за отклик!

[sov44]

Что-то арифметика не правильно считает размер скрытых папок, подскажите, где ошибка?

Код:

@Echo Off
SetLocal enabledelayedexpansion

set Cnt=10
call :CalcAndDel_3 %WINDIR%\^$NtUninstall?????????? AH
Set /A Cnt +=dirsize1
Echo %Cnt%
pause
exit /b

:CalcAndDel_3
For /F "skip=4 tokens=1-3" %%a IN ('Dir "%1" /-C /%2') Do (
If "%%b"=="папок" (Set flag=1) Else (Set flag=0)
if !flag!==1 Set dirsize1=%%c
)
exit /b

[Iska]

Здесь:

Код:

C:\>set /a 2147483646 + 1
2147483647

C:\>set /a 2147483647 + 1
-2147483648

Числа слишком велики для арифметики командного процессора.

[sov44]

Немного запутался. Подскажите, как найти в директории Windows папки типа $NtUninstall?????????? и определить их размер а потом удалить их?

[ferget]

возьмите VBS