JavaScript отключён. Чтобы полноценно использовать наш сайт, включите JavaScript в своём браузере.

Ответить в теме

Сообщение: [QUOTE="Dragokas, post: 171062, member: 6966"] Зачистка старых бекапов, пока общий объем не достигнет 400 МБ. [code=batch]@Echo Off SetLocal EnableExtensions call :Backup_Cleaner "c:\Program Files (x86)\EasyCureLogs!\REGBACKUP" 400 exit /B :Backup_Cleaner [Папка с бекапами] [Лимит в МБ] call :GetDirSize "%~1" Size if %Size% LSS %~2 Exit /B for /F "delims=" %%d in ('dir "%~1" /B /AD /O-D') do set "EarlyFolder=%~1\%%d" echo Удаление старого бекапа реестра - "%EarlyFolder%" rd /s /q "%EarlyFolder%" goto Backup_Cleaner :GetDirSize [Папка] [Переменная для хранения результата в МБ] SetLocal For /F "tokens=1-3" %%a IN ('Dir "%~1" /-C/S/A') Do call Set DirSize=%%n2%%& Set n2=%%c Set "DirSize=%DirSize:~0,-3%" if "%DirSize%"=="" (set DirSize=0) else (Set /A DirSize=%DirSize%/1024) EndLocal& Set "%~2=%DirSize%" Exit /B[/code] Проверил. Так тоже работает. Но я сторонник указания корректного синтаксиса. Справка не просто так пишется. [/QUOTE]