Хранить файлы в томах на диске в УПП

Хранение файлов в v8 неизбежно разбомбит базу как дрожжи, особенно если файлы с картинками или сканы документов нужно хранить.

Я полностью отказался от этого способа и обработку "Файлы" модифицировал, - скрыл все вкладки сделал свою (в ней открывается регистр сведений ссылки на файлы, регистратор - документ или эл. справочника, запись заноситься в регистр при прикреплении файла, в этот же момент файл копируется в директорию внешнего хранилища, адрес которого укаказан в константе.

Вот процедура при открытии/выбора файла:

Диалог = РаботаСФайлами.ПолучитьДиалогВыбораФайлов(Ложь);

Если Не Диалог.Выбрать() Тогда
Возврат;
КонецЕсли;

Попытка
Если Константы.ФлИспользованиеВнешнегоХранилища.Получить() Тогда

// Режим использования внешнего хранилища
Если Константы.ДиректорияВнешнегоХранилища.Получить()="" Тогда
//Сообщить("Не указана директория внешнего хранилища файлов");
Иначе
// поцедура сохранить
ВХ = СокрЛП(Константы.ДиректорияВнешнегоХранилища.Получить()); //Адрес внешнего хранилища
СФ = СокрЛП(Диалог.ПолноеИмяФайла); //Адрес сохраняемого файла
// тк ОФ - основания файла имеет дату из неё нужно убрать время - тк символ ":" не возможен в имени директории
ОФ = СокрЛП(ЭлементыФормы.ДополнительныеФайлы.Значение.Отбор.Объект.Значение);
Длина=СтрДлина(ОФ);
// Сохраняем из события - нужно удалить время
Если Найти(ОФ,"Событие")>0 Тогда
ОФ=Лев(ОФ, Длина-9);
ИначеЕсли Найти(ОФ,"Заказ")>0 Тогда
ОФ=Лев(ОФ, Длина-9);
Иначе
ОФ = СтрЗаменить(ОФ, """", "");
ОФ = СтрЗаменить(ОФ, ":", "");
КонецЕсли;
ДВХ= Новый Файл(ВХ);
//АдресВХ=Строка("mkdir """+ВХ+"""");
Если ДВХ.Существует()= Истина Тогда
//Папка ВХ Существует
Иначе
//Сообщить("Отсутствует директория внешнего хранилища файлов! Директория создана!");
АдресВХ=Строка("mkdir """+ВХ+"""");
КомандаСистемы(СокрЛП(АдресВХ));
КонецЕсли;
//Проверка существования директории основания
ДО=ВХ+"\"+ОФ;
ДВХ= Новый Файл(ДО);
Если ДВХ.Существует()= Истина Тогда
//Папка основания существует
Иначе
//Сообщить("Папка основания отсутствует! Директория создана!");
АдресВХ=Строка("mkdir """+ДО+"""");
КомандаСистемы(СокрЛП(АдресВХ));
КонецЕсли;
//Формируем имя файла
ИФ=СокрЛП(СФ);
Пока Найти(ИФ,"\")<>0 Цикл
Длина=СтрДлина(ИФ);
ИФ=Прав(ИФ,Длина-Найти(ИФ,"\"));
КонецЦикла;

НКФ=СокрЛП(ВХ+"\"+ОФ+"\"+ИФ);

//Проверка существования файла
ДВХ= Новый Файл(НКФ);
Если ДВХ.Существует()= Истина Тогда
//Сообщить("Данный файл уже существует! В директории внешнего хранилища будет создана копия!");
НомерКопииФайла=0;
ФлКопии=0;
Пока ФлКопии=0 Цикл
НомерКопииФайла=НомерКопииФайла+1;
ПИКФ=НКФ+"_"+НомерКопииФайла;
ДВХ= Новый Файл(ПИКФ);
Если ДВХ.Существует()= Истина Тогда
//Фл с таким номером существует
Иначе
ФлКопии=1;
АдресСФ=Строка("ren """+НКФ+""" """+ИФ+"_"+НомерКопииФайла+"""");
КомандаСистемы(СокрЛП(АдресСФ));
АдресСФ=Строка("copy """+СФ+""" """+ВХ+"\"+ОФ+"""");
КомандаСистемы(СокрЛП(АдресСФ));
КонецЕсли;
КонецЦикла;
Иначе
//Сообщить("Папка основания отсутствует! Директория создана!");
АдресВХ=Строка("mkdir """+ДО+"""");
КомандаСистемы(СокрЛП(АдресВХ));
КонецЕсли;
//Копирование файла в внешнее хранилище
АдресСФ=Строка("copy """+СФ+""" """+ВХ+"\"+ОФ+"""");
КомандаСистемы(СокрЛП(АдресСФ));
КонецЕсли;

ПИКФ=""+ВХ+"\"+ОФ+"\"+ИФ+"";
ДВХ= Новый Файл(ПИКФ);
Если ДВХ.Существует()= Истина Тогда
ВидДанныхК=ЭлементыФормы.ФайлыТЧ.ТекущаяСтрока.ВидДанных;

НаборЗаписей = РегистрыСведений.Файл.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Объект.Установить(мОбъектОтбора);
НаборЗаписей.Отбор.ВидДанных.Установить(ВидДанныхК);
НаборЗаписей.Отбор.ИмяФайла.Установить(ПИКФ);
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.Объект = мОбъектОтбора;
НоваяЗапись.ВидДанных = ВидДанныхК;
НоваяЗапись.ИмяФайла = ПИКФ;
НаборЗаписей.Записать();

КонецЕсли;
ЭлементыФормы.ФайлыТЧ.ТекущаяСтрока.ИмяФайла=СокрЛП(ПИКФ);
// к

Иначе
ТекОбъект = ЭлементыФормы.ДополнительныеФайлы.ТекущиеДанные;
ТекОбъект.Хранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные(Диалог.ПолноеИмяФайла), Новый СжатиеДанных);
ТекОбъект.ИмяФайла = Сред(Диалог.ПолноеИмяФайла, СтрДлина(Диалог.Каталог) + 1);
КонецЕсли;

Исключение
Сообщить("" + ОписаниеОшибки());
КонецПопытки;

При открытии файла - простая команда открыть