0
katerinaUniv
24.06.16
✎
22:57
|
&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
//Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
//Диалог.Заголовок = "Каталог выгрузки";
//ВыбратьКаталог(диалог);
Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
//Текст = "ru = ""Текст""; en = ""Text""";
//Фильтр = НСтр(Текст)+"(*.txt)|*.txt";
//ДиалогОткрытияФайла.Фильтр = Фильтр;
//ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина;
ДиалогОткрытияФайла.Заголовок = "Выберите каталог выгрузки";
оп = Новый ОписаниеОповещения("КаталогНаФорму", объект);
ДиалогОткрытияФайла.Показать(оп);
//Если ДиалогОткрытияФайла.Выбрать() Тогда
// //МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
// //Для Каждого ИмяФайла Из МассивФайлов Цикл
// // ВыбФайл = Новый Файл(ИмяФайла);
// // Текст = "ru = ""; Размер = ""; en = ""; Size = """;
// // Сообщить(ИмяФайла+НСтр(Текст)+ВыбФайл.Размер());
// //КонецЦикла;
// объект.ПутьКФайлу = ДиалогОткрытияФайла.Каталог;
//Иначе
// Текст = "ru = ""Каталог не выбран!""";
// Предупреждение(НСтр(Текст));
//КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура КаталогНаФорму(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
//записываем каталог
Сообщить("ап");
КонецПроцедуры
|
|