Сохранить файл

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. WrongLane 3 19.11.14 13:26 Сейчас в теме

Ребята, подскажите, пожалуйста.
У меня в базе идет генерация файла.

Сейчас у меня это происходит так:
Файл = Новый ЗаписьТекста ("C://МойФайл.txt", КодировкаТекста.UTF8);
Файл.Записать("");

Мне это очень неудобно потому что:
1. Путь фиксированный.
2. Для записи на диск C часто нет прав.

Мне нужно его сохранить на компьютер.
То есть вызвать окошко типа "Сохранить как", указать там путь.
Как сделать так?

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

3. azmon 1 19.11.14 13:40 Сейчас в теме

(1) WrongLane, использовать "ДиалогВыбораФайла"

Об этом здесь

2. spezc 786 19.11.14 13:37 Сейчас в теме

Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Текст = "ru = ""Текст""; en = ""Text""";
Фильтр = НСтр(Текст)+"(*.txt)|*.txt";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Истина;
ДиалогОткрытияФайла.Заголовок = "Выберите файлы";
Если ДиалогОткрытияФайла.Выбрать() Тогда
МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
Для Каждого ИмяФайла Из МассивФайлов Цикл
ВыбФайл = Новый Файл(ИмяФайла);
Текст = "ru = ""; Размер = ""; en = ""; Size = """;
Сообщить(ИмяФайла+НСтр(Текст)+ВыбФайл.Размер());
КонецЦикла;
Иначе
Текст = "ru = ""Файл(ы) не выбран!""; en = ""File(s) not selected!""";
Предупреждение(НСтр(Текст));
КонецЕсли;

4. WrongLane 3 19.11.14 14:22 Сейчас в теме

Спасибо большое за ответы. Помогло.

Оставьте свое сообщение

E-mail: