Программно выгрузить картинки из базы 1С УТ 10.3 в каталог
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
Если Диалог.Выбрать() Тогда
ИмяКаталога = Диалог.Каталог;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ХранилищеДополнительнойИнформации.Ссылка
|ИЗ
| Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации";
Строка = Запрос.Выполнить().Выбрать();
Сообщить("Начало выгрузки картинок "+ ИмяКаталога + " "+текущаяДата());
Пока Строка.Следующий() Цикл
Если строка.ссылка.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение Тогда
Данные = строка.Ссылка.Хранилище.Получить();
Диалог.ПолноеИмяФайла = ИмяКаталога +"/"+строка.ссылка.ИмяФайла;
ИмяФайла = Диалог.ПолноеИмяФайла;
Попытка
Данные.Записать(ИмяФайла);
Исключение
Сообщить(ОписаниеОшибки());
Конецпопытки;
КонецЕсли;
КонецЦикла;
Сообщить("Выгрузка завершена "+ ИмяКаталога + " " +ТекущаяДата());
КонецЕсли;