Реализована выгрузка информационной базы в текущий каталог если в параметрах указано только имя файла выгрузки

Author: AlexPCRus

src/v8runner.os

@@ -1335,6 +1335,14 @@
 
 Процедура ВыгрузитьИнформационнуюБазу(ПутьВыгрузкиИБ) Экспорт
 
+	Лог.Отладка(СтрШаблон("ПутьВыгрузкиИБ %1", ПутьВыгрузкиИБ));
+	
+	МассивЭлементовПути = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ПутьВыгрузкиИБ, ПолучитьРазделительПути());
+	// если имя файла указано без каталога, то сохраняем в текущий каталог
+	Если МассивЭлементовПути.Количество() = 1 Тогда
+		ПутьВыгрузкиИБ = ТекущийКаталог() + ПолучитьРазделительПути() + ПутьВыгрузкиИБ;
+	КонецЕсли;
+	
 	Файл = Новый Файл(ПутьВыгрузкиИБ);
 	КаталогВыгрузкиИБ = Файл.Путь;