1s Клиент банк

// ВыборФайла(Элемент, ПроверятьСуществование=Ложь)
//
Процедура ВыборФайла(Элемент, ПроверятьСуществование=Ложь)
	
	ДиалогФыбораФайла	=	Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	
	ДиалогФыбораФайла.Фильтр						        =	"Файл данных (*.txt)|*.txt";
	ДиалогФыбораФайла.Заголовок						      =	"Выберите файл";
	ДиалогФыбораФайла.ПредварительныйПросмотр		=	Ложь;
	ДиалогФыбораФайла.Расширение					      =	"txt";
	ДиалогФыбораФайла.ИндексФильтра					    =	0;
	ДиалогФыбораФайла.ПолноеИмяФайла				    =	Элемент.Значение;
	ДиалогФыбораФайла.ПроверятьСуществованиеФайла	=	ПроверятьСуществование;
	
	Если ДиалогФыбораФайла.Выбрать() Тогда
		Элемент.Значение = ДиалогФыбораФайла.ПолноеИмяФайла;
	КонецЕсли;
	
КонецПроцедуры