Процедура ЗаписатьЛог(Сообщение)

    Путь = "D:\логи\";
    
    Попытка
    Текст = Новый ТекстовыйДокумент;
    Текст.Прочитать(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt");
Текст.ДобавитьСтроку(Строка(ТекущаяДата()) +": " +Сообщение);
Текст.Записать(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt");
   
   
    Исключение
    Текст = Новый ЗаписьТекста(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt", КодировкаТекста.ANSI);
    Текст.ЗаписатьСтроку(Строка(ТекущаяДата())+Сообщение);
    Текст.Закрыть();

    КонецПопытки;
   

КонецПроцедуры