gifts2017

Предупреждение о превышении размера mlg

Опубликовал Александр Куденцов (AklexK) в раздел Программирование - Универсальные функции

Предупреждение о превышении размера mlg
Процедура ПроверимРазмер_mlg()
Перем РазмерФайла,АтрибутыФайла,ВремяСоздания,ВремяПоследнегоДоступа,ВремяПоследнейЗаписи,РасширенноеИмяФайла;
ИмяФ = каталогИб()+"Syslog\1cv7.mlg";
Фс.АтрибутыФайла(ИмяФ,РазмерФайла,АтрибутыФайла,ВремяСоздания,ВремяПоследнегоДоступа,ВремяПоследнейЗаписи,РасширенноеИмяФайла);
Если РазмерФайла > 1900000000 Тогда
Предупреждение("Текущий размер файла 1cv7.mlg : " + окр(РазмерФайла/1024/1024,2)+" Мбайт"+РазделительСтрок+РазделительСтрок+
"Допустимы размер файла 2048 Мбайт"+РазделительСтрок+
"Примите меры");
конецесли;
КонецПроцедуры


//-----------------------------------------------------
// Выполняется при старте
//-----------------------------------------------------
Процедура ПриНачалеРаботыСистемы()

ПроверимРазмер_mlg();
...

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Равиль Каримов (karaw) 19.12.07 06:44
Это ж сколько надо пахать чтобы забить mlg до 1,9 Гб?
2. Aklexk (AklexK) 19.12.07 13:34
3. VasilyKushnir (vasilykushnir) 19.12.07 13:51
(1) Умеют же люди... Я в шорохе...
4. Aklexk (AklexK) 19.12.07 14:18
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа