получить расширение файла

&НаКлиенте
Процедура ДиалогВыбораФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
	Если ВыбранныеФайлы <> Неопределено Тогда
		ПутьКФайлу = ВыбранныеФайлы.Получить(0);
		Если Не ПустаяСтрока(ПутьКФайлу) Тогда
			Файл = Новый Файл(ПутьКФайлу);
			
			ПомещаемыеФайлы = Новый Массив;
			Описание = Новый ОписаниеПередаваемогоФайла(Файл.ПолноеИмя, "");
			ПомещаемыеФайлы.Добавить(Описание);
			
			ПомещенныеФайлы = Новый Массив;
			
			Если Не ПоместитьФайлы(ПомещаемыеФайлы, ПомещенныеФайлы, , Ложь, ЭтаФорма.УникальныйИдентификатор) Тогда
				ВызватьИсключение СтрШаблон(
				НСтр("ru = 'Ошибка при помещении файла
				|""%1""
				|во временное хранилище.'"),
				Файл.ПолноеИмя);
			КонецЕсли;
			
			СтруктураДанных = Новый Структура;
			СтруктураДанных.Вставить("Данные", ПомещенныеФайлы[0].Хранение);
			СтруктураДанных.Вставить("РасширениеФайла", Файл.Расширение);
			Записать();
			ЗаписатьДанныеВСправочник(СтруктураДанных);
		Иначе
			ПоказатьПредупреждение(,НСтр("ru = 'Буфер обмена не содержит картинки'"));
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ДобавитьФайл(Команда)
	ОписаниеОповещения = Новый ОписаниеОповещения("ДиалогВыбораФайлаЗавершение", ЭтотОбъект, );
	ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	ДиалогВыбора.Фильтр                  = НСтр("ru = 'Все файлы'") + " (*.*)|*.*";
	ДиалогВыбора.Заголовок               = НСтр("ru = 'Выберите файл для загрузки'");
	ДиалогВыбора.ПредварительныйПросмотр = Ложь;
	ДиалогВыбора.Расширение              = "";
	ДиалогВыбора.ИндексФильтра           = 0;
	ДиалогВыбора.ПолноеИмяФайла          = "";
	ДиалогВыбора.МножественныйВыбор      = Ложь;
	ДиалогВыбора.Показать(ОписаниеОповещения);
КонецПроцедуры