&НаКлиенте
Процедура ВыгрузитьФайлы(Команда)
	
  СписокФайлов = Новый СписокЗначений;
  ВыгрузитьФайлыНаСервере(СписокФайлов);
	
  ИмяФайлов = Новый Массив();
	
  Для Каждого ТекФайл Из СписокФайлов Цикл
	ДанныеФайла = ТекФайл.Значение;
	ИмяФайлов.Добавить(ДанныеФайла);
  КонецЦикла;
	
  МассивФайловДляСкачивания = ПодготовитьФайлы(ПутьКФайлу, ИмяФайлов);
		
  НачатьПолучениеФайловССервера(, МассивФайловДляСкачивания, ПутьКФайлу + "\", );
	
КонецПроцедуры


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

Функция мЕстьФайлыУВладельца(Знач ВладелецФайлов, Знач ФайлИсключение = Неопределено)
	
	СтруктураДанных = Новый Структура("ЕстьФайлы,Таб");
	
	УстановитьПривилегированныйРежим(Истина);
	
	Запрос = Новый Запрос;
	Запрос.Параметры.Вставить("ВладелецФайлов", ВладелецФайлов);
	
	ТекстЗапроса =
	"ВЫБРАТЬ
	|	ПрисоединенныеФайлы.Ссылка
	|ИЗ
	|	&ИмяСправочника КАК ПрисоединенныеФайлы
	|ГДЕ
	|	ПрисоединенныеФайлы.ВладелецФайла = &ВладелецФайлов";
	
	Если ФайлИсключение <> Неопределено Тогда
		ТекстЗапроса = ТекстЗапроса + " И ПрисоединенныеФайлы.Ссылка <> &Ссылка";		
		Запрос.Параметры.Вставить("Ссылка", ФайлИсключение);
	КонецЕсли;
	
	ИменаСправочников = РаботаСФайламиСлужебный.ИменаСправочниковХраненияФайлов(ВладелецФайлов);
	
	Для каждого КлючИЗначение Из ИменаСправочников Цикл
		Запрос.Текст = СтрЗаменить(ТекстЗапроса, "&ИмяСправочника", "Справочник." + КлючИЗначение.Ключ);
		
		Если НЕ Запрос.Выполнить().Пустой() Тогда
		
			Таб = Запрос.Выполнить().Выгрузить();
			СтруктураДанных.Вставить("ЕстьФайлы", Истина);
			СтруктураДанных.Вставить("Таб", Таб);
			Возврат СтруктураДанных;
		КонецЕсли;
	КонецЦикла;
	
	СтруктураДанных.Вставить("ЕстьФайлы", Ложь);
	СтруктураДанных.Вставить("Таб", Неопределено);
	Возврат СтруктураДанных;
	
КонецФункции


&НаКлиенте
Функция ПодготовитьФайлы(ПутьКФайлу_, ИмяФайлов_)
		
	ИмяФайловДляСкачивания = Новый Массив();
	
	Для Каждого ИмяФайла Из ИмяФайлов_ Цикл
	Путь = ПутьКФайлу_ + "\" + ИмяФайла.ИмяФайла;
	Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(Путь));
		
	ИмяФайлаФ = ИмяФайла.ИмяФайла;
	ИмяФайловДляСкачивания.Добавить(Новый ОписаниеПередаваемогоФайла(ИмяФайлаФ, Адрес));
	КонецЦикла;
	
	Возврат ИмяФайловДляСкачивания;
	
КонецФункции