123
КонецЕсли;
Папка = Настройка.Папка;
Пользователь = Настройка.Пользователь;
СтратегияРаспознавания = Неопределено;
ЯзыкРаспознавания = Неопределено;
Если Настройка.Свойство("СтратегияРаспознавания") Тогда
СтратегияРаспознавания =
Настройка.СтратегияРаспознавания;
Иначе
СтратегияРаспознавания =
Перечисления.СтратегииРаспознаванияТекста.ПоместитьТолькоВТекстовыйОбр
аз;
КонецЕсли;
Если Настройка.Свойство("ЯзыкРаспознавания") Тогда
ЯзыкРаспознавания = Настройка.ЯзыкРаспознавания;
Иначе
ЯзыкРаспознавания =
РаботаСФайламиВызовСервера.ПолучитьЯзыкРаспознавания();
КонецЕсли;
Если ПустаяСтрока(КаталогНаДиске) Тогда
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Автоматическая загрузка файлов'",
Метаданные.ОсновнойЯзык.КодЯзыка),
УровеньЖурналаРегистрации.Ошибка, , ,
НСтр("ru = 'Не указан каталог на диске'"));
Продолжить;
КонецЕсли;
ФайлКаталога = Новый Файл(КаталогНаДиске);
Если Не ФайлКаталога.Существует() Тогда
ТекстОшибки =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
124
НСтр("ru = 'Неверный путь к каталогу на диске:
""%1""'"),
КаталогНаДиске);
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Автоматическая загрузка файлов'",
Метаданные.ОсновнойЯзык.КодЯзыка),
УровеньЖурналаРегистрации.Ошибка, , ,
ТекстОшибки);
Продолжить;
КонецЕсли;
Если Папка.Пустая() Тогда
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Автоматическая загрузка файлов'",
Метаданные.ОсновнойЯзык.КодЯзыка),
УровеньЖурналаРегистрации.Ошибка, , ,
НСтр("ru = 'Не указана папка'"));
Продолжить;
КонецЕсли;
Если Пользователь.Пустая() Тогда
ЗаписьЖурналаРегистрации(НСтр("ru = 'Автоматическая
загрузка файлов'", Метаданные.ОсновнойЯзык.КодЯзыка),
УровеньЖурналаРегистрации.Ошибка, , ,
НСтр("ru = 'Не указан пользователь'"));
Продолжить;
КонецЕсли;
Если Не ЕстьПравоДоступа(Пользователь, Папка) Тогда
ТекстОшибки =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'У пользователя ""%1"" нет прав на
добавление файлов в папку ""%2""'"),
Пользователь, Папка);
125
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Автоматическая загрузка файлов'",
Метаданные.ОсновнойЯзык.КодЯзыка),
УровеньЖурналаРегистрации.Ошибка, , ,
ТекстОшибки);
Продолжить;
КонецЕсли;
Попытка
ВыбранныеФайлы = Новый СписокЗначений;
НайденныеФайлы = НайтиФайлы(КаталогНаДиске, "*.*");
Для Каждого ФайлВложенный Из НайденныеФайлы Цикл
ВыбранныеФайлы.Добавить(ФайлВложенный.ПолноеИмя);
КонецЦикла;
ПсевдоФайловаяСистема = Новый Соответствие; //
соответствие путь к директории - файлы и папки в ней
ДобавленныеФайлы = Новый Массив;
МассивИменФайловСОшибками = Новый Массив;
Описание = "";
ХранитьВерсии = Истина;
УдалятьФайлыПослеДобавления = Истина;
ПапкаДляДобавленияТекущая = ИмпортФайловВыполнить(
Папка,
ВыбранныеФайлы,
Описание,
ХранитьВерсии,
ПсевдоФайловаяСистема,
ДобавленныеФайлы,
Истина, // режим загрузки
Пользователь,
МассивИменФайловСОшибками,
СтратегияРаспознавания,
ЯзыкРаспознавания,
126
Категории);
ТекстСообщения =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Закончена автоматическая загрузка
файлов из каталога ""%1"" в папку ""%2"". Загружено файлов: %3. Не удалось
загрузить файлов: %4.'"),
КаталогНаДиске, Папка,
ДобавленныеФайлы.Количество(),
МассивИменФайловСОшибками.Количество());
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Автоматическая загрузка файлов'",
Метаданные.ОсновнойЯзык.КодЯзыка),
УровеньЖурналаРегистрации.Информация, , ,
ТекстСообщения);
Исключение
// запись в журнал регистрации
ОписаниеОшибки =
КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
ТекстСообщения =
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Ошибка автоматической загрузки
файлов: ""%1"" из каталога ""%2"" в папку ""%3""'"),
ОписаниеОшибки, КаталогНаДиске, Папка);
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Автоматическая загрузка файлов'",
Метаданные.ОсновнойЯзык.КодЯзыка),
УровеньЖурналаРегистрации.Ошибка, , ,
ТекстСообщения);
КонецПопытки;
КонецЦикла;
КонецПроцедуры