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

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

Аватара для gora

Ушёл из жизни


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

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


Код: Выделить весь код
@Echo Off
:: Кодировка файла DOS (866)
SetLocal enabledelayedexpansion
Set Folder=%~1
If Not Defined Folder GoTo :_help
For /F %%i In ('Dir "%Folder%" /AD /B /ON 2^>Nul') Do (
	Call :_sizedir "%Folder%\%%i"
	If !dirsize! GTR 20971520 Echo RD /S /Q "%Folder%\%%i"
)
Pause>Nul
Exit

:_help
Echo %~nx0 "Full\path\Folder"
Pause>Nul
Exit

:_sizedir
Set flag=0
Set dirsize=0
For /F "tokens=1-3" %%a In ('dir %1 /-C /S /A:-D 2^>Nul') Do (
	If !flag!==1 Set dirsize=%%c
	If "%%b"=="файлов:" (Set flag=1) Else Set flag=0
)
GoTo:EOF
Для тестов команда удаления закомментирована командой "Echo".
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:18, 23-03-2010 | #2