Процедура КнопкаВыполнитьНажатие(Кнопка)
    МассивФайлов = НайтиФайлы(ПутьКФайлам, "*.txt");
    Для Каждого ЭлементМассива из МассивФайлов Цикл
        Файл = Новый ЧтениеТекста(ЭлементМассива.ПолноеИмя);
        ВесьФайлОднойСтрокой = Файл.Прочитать();
        Если Найти(ВесьФайлОднойСтрокой, ИскомаяСтрока) > 0 Тогда
            Сообщить(ЭлементМассива.Имя);
        КонецЕсли;
        Файл.Закрыть();
    КонецЦикла;
КонецПроцедуры