путь к файлу
22.04.2009
15:02
#1
1с7.7 Зик 253 как написать на языке 1с путь к папке в которую нужно выгрузить фал, ползователя находятся по лок.сети!?
22.04.2009
15:16
#2
"предположим, что на форму поместили текстовый реквизит "Каталог" с кнопкой выбора.
в модуле пишем:
Процедура ПриНачалеВыбораЗначения(ИД,Флаг)
Если ИД="Каталог" Тогда
Флаг = 0;
ФС.ВыбратьКаталог(Каталог,"Выберите каталог для закачки файлов");
КонецЕсли;
КонецПроцедуры //ПриНачалеВыбораЗначения()
после этого реквизит Каталог всегда будет иметь путь к папке выгрузки - его можно и использовать для формирования файлов"
в модуле пишем:
Процедура ПриНачалеВыбораЗначения(ИД,Флаг)
Если ИД="Каталог" Тогда
Флаг = 0;
ФС.ВыбратьКаталог(Каталог,"Выберите каталог для закачки файлов");
КонецЕсли;
КонецПроцедуры //ПриНачалеВыбораЗначения()
после этого реквизит Каталог всегда будет иметь путь к папке выгрузки - его можно и использовать для формирования файлов"
22.04.2009
15:36
#3
"у мен написано
Процедура ВыборКаталога(ИмяКаталога)
//Каталог = """";
//Стр = "Файл настройки (*." + Фильтр + ")|*." + Фильтр + """";
Если ФС.ВыбратьКаталог(ИмяКаталога, "Выберите каталог") = 1 Тогда
ПутьКФайлу = СокрЛП(ИмяКаталога);
КонецЕсли;
КонецПроцедуры
Процедура ПриНачалеВыбораЗначения(ИдЭлементаДиалога, Фл)
Если ИдЭлементаДиалога = "ПутьКФайлу" Тогда
ВыборКаталога(СокрЛП(ПутьКФайлу));
КонецЕсли;
КонецПроцедуры
"
Процедура ВыборКаталога(ИмяКаталога)
//Каталог = """";
//Стр = "Файл настройки (*." + Фильтр + ")|*." + Фильтр + """";
Если ФС.ВыбратьКаталог(ИмяКаталога, "Выберите каталог") = 1 Тогда
ПутьКФайлу = СокрЛП(ИмяКаталога);
КонецЕсли;
КонецПроцедуры
Процедура ПриНачалеВыбораЗначения(ИдЭлементаДиалога, Фл)
Если ИдЭлементаДиалога = "ПутьКФайлу" Тогда
ВыборКаталога(СокрЛП(ПутьКФайлу));
КонецЕсли;
КонецПроцедуры
"
Читают тему
(гостей: 1)