Размер картинки 1С

Держи код


//***

Функция ПолучитьЗначенияСвойствКартинки(ПутьКФайлу) Экспорт

    

    #Если Клиент Тогда

            

    Свойства = Новый Соответствие;

    

    МассивПодстрок = РазложитьСтрокуВМассивПодстрок(ПутьКФайлу, "\");

    ИмяФайла = МассивПодстрок[МассивПодстрок.Количество()-1];

    Позиция = Найти(ПутьКФайлу, ИмяФайла);

    КаталогФайла = Сред(ПутьКФайлу, 1, Найти(ПутьКФайлу, ИмяФайла)-1);

    

    Если (Не МассивПодстрок.Количество())

        ИЛИ (Не ЗначениеЗаполнено(ИмяФайла))

        ИЛИ (Найти(ИмяФайла, ".") = 0)

        ИЛИ (Не ЗначениеЗаполнено(КаталогФайла))

        ИЛИ (Не обСуществуетФайл(ПутьКФайлу)) Тогда

        Сообщить("Не найден файл по указанному пути """+ПутьКФайлу+"""", СтатусСообщения.Важное);

        Возврат Свойства;

    КонецЕсли;    

        

    ShellApp = Новый COMОбъект("Shell.Application");

    objFolder = ShellApp.NameSpace(КаталогФайла);

    objItem = objFolder.ParseName(ИмяФайла);

    

    Для i=-1 По 40 Цикл

        Если ЗначениеЗаполнено(objFolder.GetDetailsOf(, i)) Тогда 

            Свойства.Вставить(objFolder.GetDetailsOf(, i), objFolder.GetDetailsOf(objItem, i));

        КонецЕсли;    

    КонецЦикла;

    

    Возврат Свойства;

    

    #КонецЕсли



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