Модули для действий\БД 1С 8\Открыть временную локальную папку
Функция Выполнить()
// откроем папку с локальными временными файлами для базы
Модуль = Этот.Владелец;
Параметр = Модуль.Параметр;
Если (Параметр=0) Тогда
Сообщить("Параметр не задан");
Возврат 0;
Конец;
ПутьБД = Строки.Заменить(Параметр.Путь,"""","""""");
//Сообщить(ПутьБД);
ПутьКПапкеВременный = Компьютеры.Директории("%APPDATA%")+"\1C\1cv8\";
ПутьКФайлуВременный = ПутьКПапкеВременный+"1cv8u.pfl";
Текст = "";
Текст.Прочитать(ПутьКФайлуВременный);
найден = 0;
Стр2 = "";
Для Стр Из Текст Цикл
Если (найден=1) Тогда
Стр2 = Стр;
Прервать;
Иначе
Если (Строки.Найти(Стр,ПутьБД)>0) Тогда
найден = 1;
Конец;
Конец;
Конец;
Если (Стр2<>"") Тогда
//Сообщить(Стр2);
Стр3 = ПутьКПапкеВременный + Строки.Между(Стр2,""",""","""}");
Запустить(Стр3);
Иначе
Сообщить("Нет временной папки для "+ Параметр.Путь);
Конец;
Конец