Почему то не добавляются строки в файл,всегда одна строка,
добавление не происходит подскажите по возможности плз:

Если НачалоКвартала(Источник.Дата)<>НачалоКвартала(ТекущаяДата()) Тогда
        КаталогЗагрузки=СтрокаСоединенияИнформационнойБазы();
        МассивФайлов=НайтиФайлы("d:\base","*.lg");//Найти в заданном каталоге все файлы с расширением *.lg
        лФлаг=Ложь;
        Для Каждого ИмяФайла Из МассивФайлов Цикл

            Текст=Новый ТекстовыйДокумент();
            Текст.ДобавитьСтроку(ИмяПользователя()+"  "+СтрокаСоединенияИнформационнойБазы()+"   "+Строка(Источник));
            Текст.Записать("d:\base\lg.lg");
          
            лФлаг=Истина;
            Прервать;
        КонецЦикла;
        Если лФлаг=Ложь Тогда
            Текст=Новый ТекстовыйДокумент();
            Текст.ДобавитьСтроку(ИмяПользователя()+"  "+СтрокаСоединенияИнформационнойБазы()+"   "+Строка(Источник));
            Текст.Записать("d:\base\lg.lg");
        КонецЕсли;
    КонецЕсли;

а где Прочитать?

(1) - можно развернутее ?

(2) ну, ты каждый раз создаёшь документ заново. Либо создавай один раз, и дописывай. Либо каждый раз перед добавлением строки считывай из файла

ТекстовыйДокумент (TextDocument)
Прочитать (Read)
Синтаксис:

Прочитать(<ИмяФайла>, <ТипФайла>, <РазделительСтрок>)

© СП