Проверка файла на блокировку

Функция ФайлЗаблокирован(ПолноеИмяФайла) Экспорт

  ЕстьБлокировка = Ложь;

  Файл = Новый Файл(ПолноеИмяФайла);
  Если Файл.Существует() Тогда
    Попытка
      ЗаписьТекста = Новый ЗаписьТекста(ПолноеИмяФайла, , , Истина);
    Исключение
      ЕстьБлокировка = Истина;
    КонецПопытки;
  КонецЕсли;

  Возврат ЕстьБлокировка;

КонецФункции