v8: Как размещать Файлы не в базе, а в отдельных, в том числе сетевых папках?

 Процедура ДобавитьФайлНажатие(Элемент)

	Если ЭтоНовый() Тогда 

		Записать();

	КонецЕсли;  	

	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

	Диалог.Заголовок = "Выберите файл";

	//Диалог.ПолноеИмяФайла = ""; 

	Фильтр = "Все файлы (*.*)|*.*"; 

	Диалог.Фильтр = Фильтр; 

	Диалог.МножественныйВыбор = Ложь;

	//Диалог.Каталог = "F:\";

	Если Диалог.Выбрать() Тогда

		ИмяФайла = СтрЗаменить(Диалог.ПолноеИмяФайла,Диалог.Каталог,"");

		ДобавитьФайлВХранилище(Ссылка, Диалог.ПолноеИмяФайла, ИмяФайла);

	КонецЕсли;

	ВернутьСписокФайловЭлемента(Ссылка,тпФайлы);

КонецПроцедуры





///////////////////////////////////////////// Функции работы с файлами - потом как протестим перенесем в общий модуль

Функция ДобавитьФайлВХранилище(СсылкаНАЭлем,ПутьКФайлу, ИмяФайла)

	ТекКаталог=СсылкаНАЭлем.УникальныйИдентификатор();

	КаталогФайловЭлемента=СетевойКаталог+ТекКаталог;

	Файл = Новый Файл(КаталогФайловЭлемента);

	Если Файл.Существует() Тогда

		//Все ок

	Иначе	

		Попытка

			СоздатьКаталог(КаталогФайловЭлемента);

		Исключение

			ЗаписьЖурналаРегистрации("Не удалось создать каталог", УровеньЖурналаРегистрации.Информация, , , ОписаниеОшибки());

		КонецПопытки;

	КонецЕсли; 

	КопироватьФайл(ПутьКФайлу,КаталогФайловЭлемента+"\"+ИмяФайла);

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



Функция ВернутьСписокФайловЭлемента(СсылкаНАЭлем,тпФайлы)

	ТекКаталог=СсылкаНАЭлем.УникальныйИдентификатор();

	КаталогФайловЭлемента=СетевойКаталог+ТекКаталог;

	Файл = Новый Файл(КаталогФайловЭлемента);

	Если Файл.Существует() Тогда

		МассивФайлов = НайтиФайлы(КаталогФайловЭлемента+"\","*.*");

		Для Каждого НайденныйФайл Из МассивФайлов Цикл

			НовСтр=тпФайлы.Добавить(); НовСтр.Файл=НайденныйФайл.Имя; НовСтр.Путь=НайденныйФайл.ПолноеИмя;   

		КонецЦикла;	

	КонецЕсли;

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