Процедура КнопкаВыполнитьНажатие(Кнопка)
МассивНайденных = НайтиФайлы(Путь, "*.jpg");
счетчик = 1;

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

СчетчикСозданных = 0;
код = "";
Для Каждого Файл из МассивНайденных Цикл
   Состояние("обрабатывается объект " + Строка(счетчик) + " из " + Строка(МассивНайденных.Количество()));
   счетчик = счетчик + 1;
   Позиция = Найти(Файл.Имя , "_" );
   Если Позиция <> 0 Тогда
       код = Сред(Файл.Имя, 1, Позиция - 1);
       Если СОКРЛП(Справочники.Номенклатура.НайтиПоКоду(код).Код) = код Тогда
           Отбор.Вставить("ИмяФайла" ,Файл.Имя);
           Массив = Результат.НайтиСтроки(Отбор);

           Если Массив.Количество() = 0 Тогда
               Номенклатура = Справочники.Номенклатура.НайтиПоКоду(код).ПолучитьОбъект();
               Справочник = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
               Справочник.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
               Справочник.ИмяФайла = Файл.Имя;
               Справочник.Наименование = Файл.Имя;
               Справочник.Объект = Номенклатура.Ссылка;
               Справочник.Хранилище = Новый ХранилищеЗначения(Новый Картинка(Файл.ПолноеИмя),Новый СжатиеДанных);
               Справочник.Записать();
               СчетчикСозданных = СчетчикСозданных + 1;
               
               Если Найти(Файл.Имя , "v01_s" ) <> 0 и Номенклатура.ОсновноеИзображение.ИмяФайла = "" Тогда
                   Номенклатура.ОсновноеИзображение = Справочник.Ссылка;
                   Номенклатура.Записать();
               ИначеЕсли Найти(Файл.Имя , "v02_s" ) <> 0 и Номенклатура.ОсновноеИзображение.ИмяФайла = "" Тогда
                   Номенклатура.ОсновноеИзображение = Справочник.Ссылка;
                   Номенклатура.Записать();
               ИначеЕсли Найти(Файл.Имя , "v03_s" ) <> 0 и Номенклатура.ОсновноеИзображение.ИмяФайла = "" Тогда
                   Номенклатура.ОсновноеИзображение = Справочник.Ссылка;
                   Номенклатура.Записать();
               ИначеЕсли Найти(Файл.Имя , "v04_s" ) <> 0 и Номенклатура.ОсновноеИзображение.ИмяФайла = "" Тогда
                   Номенклатура.ОсновноеИзображение = Справочник.Ссылка;
                   Номенклатура.Записать();
               ИначеЕсли Найти(Файл.Имя , "v05_s" ) <> 0 и Номенклатура.ОсновноеИзображение.ИмяФайла = "" Тогда
                   Номенклатура.ОсновноеИзображение = Справочник.Ссылка;
                   Номенклатура.Записать();
               ИначеЕсли Найти(Файл.Имя , "v06_s" ) <> 0 и Номенклатура.ОсновноеИзображение.ИмяФайла = "" Тогда
                   Номенклатура.ОсновноеИзображение = Справочник.Ссылка;
                   Номенклатура.Записать();
               КонецЕсли;
               
           Иначе
               
           КонецЕсли;
           
           
       Иначе
       КонецЕсли;
   КонецЕсли;
КонецЦикла;
Сообщить("обработано " + Строка(МассивНайденных.Количество()) + " картинок и создано " + строка(СчетчикСозданных));
КонецПроцедуры

Неудивительно. Попробуй поставить условия в запросе - уменьшить объём результата.

(0) а что собственно удивляет?

ужаснах

(2) это он хвастается

Неудивительно. Попробуй поставить условия в запросе - уменьшить объём результата

не могли бы подсказать как это сделать

(5) пилять, ручками - чем же еще

даже если одну картинку загружаю

(7) тем более если одну, накуя весь справочник со всеми полями в память загонять?

оставь в запросе только
"ВЫБРАТЬ
|    ХранилищеДополнительнойИнформации.Ссылка,
|ИЗ
|    Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации";

да и вообще, от поиска по коду можно избавиться если соединять хранилище и номенклатуру в запросе

и на будущее, не стоит в запросе выбирать те поля, которые ты не собираешься использовать. тем более когда касается дело ХранилищеДополнительнойИнформации.Хранилище

спасибо большое помогло уменьшить запрос

подскажите а как сделать так чтобы программа при запуски если указанна папка открывала все папки внутри и пробигала по каждой папке в поиске изображения

Процедура ПутьНачалоВыбора(Элемент, СтандартнаяОбработка)
   
   СтандартнаяОбработка = Ложь;
   
   РезультатВыбора = РаботаСФайлами.ВыбратьКаталог(Элемент.Значение);
   
   
КонецПроцедуры