1с выбор файла / каталога

ВыборКаталог.1с

	
&НаКлиенте
Процедура ПутьККаталогуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	
	Режим = РежимДиалогаВыбораФайла.ВыборКаталога; 
	
	ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 
	ДиалогОткрытия.Каталог             = "D:"; 
	ДиалогОткрытия.Заголовок 		   = "Выберите супер каталог"; 
	
	Если ДиалогОткрытия.Выбрать() Тогда
		
		ПутьККаталогу = ДиалогОткрытия.Каталог;
		
	КонецЕсли;	
	
КонецПроцедуры

ВыборФайла.1с

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

ВыборФайлов.1с

	
&НаКлиенте
Процедура ДобавитьФайлы(Команда)
	
	СтандартнаяОбработка = Ложь;
	
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	Диалог.Заголовок     			   = "Выберите файлы: ";
	//Диалог.Фильтр 		 		   = "Excel файлы(*.xls;*.xlsx)|*.xls;*.xlsx";
	Диалог.Фильтр 		 			   = "powershell и Ексль(*.ps1;*.xls;*.xlsx)|*.ps1;*.xls;*.xlsx";
	Диалог.ИндексФильтра 			   = 0;
	Диалог.ПредварительныйПросмотр     = Ложь;
	Диалог.ПроверятьСуществованиеФайла = Истина;
	Диалог.МножественныйВыбор          = Истина; 
	Диалог.ПолноеИмяФайла              = ПутьКФайлу;
	
	Если Диалог.Выбрать() Тогда
		
		МассивФайлов = Диалог.ВыбранныеФайлы;
		
		ЭтаФорма.ПутьКФайлам.Очистить();
		
		Для Каждого ИмяФайла Из МассивФайлов Цикл
			
			НС = ЭтаФорма.ПутьКФайлам.Добавить();
			НС.ПутьКФайлу = ИмяФайла;
			
		КонецЦикла
			
	КонецЕсли;	
		
КонецПроцедуры