#117

Pr-Mex · Dec 16, 2018 · 174e7ec · 174e7ec
1 parent 064fcd1
commit 174e7ec
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/features/Libraries/РаботаСФайлами/РаботаСФайлами/Forms/Форма/Ext/Form/Module.bsl b/features/Libraries/РаботаСФайлами/РаботаСФайлами/Forms/Форма/Ext/Form/Module.bsl
@@ -31,6 +31,8 @@
 	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ФайлНеСодержитСтроки(Парам01,ТабПарам)","ФайлНеСодержитСтроки","И файл ""ИмяФайла"" не содержит строки" + Символы.ПС + Символы.Таб + "|""ПодСтрока1""|" + Символы.ПС + Символы.Таб + "|""ПодСтрока2""|","Проверяет, что файле нет указанных строк/подстрок.","Файлы");
 	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ФайлСодержитСтроки(Парам01,ТабПарам)"  ,"ФайлСодержитСтроки"  ,"И файл ""ИмяФайла"" содержит строки"    + Символы.ПС + Символы.Таб + "|""ПодСтрока1""|" + Символы.ПС + Символы.Таб + "|""ПодСтрока2""|","Проверяет, что файле есть указанные строки/подстроки.","Файлы");
 
+	Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ФайлСуществет(Парам01)","ФайлСуществет","И Файл ""ИмяФайла"" существет","Проверяет существование файла","Файлы");
+
 	Возврат ВсеТесты;
 КонецФункции
 
@@ -230,3 +232,16 @@
 		ВызватьИсключение ТекстСообщения;
 	КонецЕсли;	 
 КонецПроцедуры
+
+&НаКлиенте
+//И Файл "ИмяФайла" существет
+//@ФайлСуществет(Парам01)
+Процедура ФайлСуществет(Знач ИмяФайла) Экспорт
+	ИмяФайла = Ванесса.ПолучитьЗначениеИзКонтекстаЕслиЭтоВозможно(ИмяФайла);
+
+	Если НЕ Ванесса.ФайлСуществуетКомандаСистемы(ИмяФайла) Тогда
+		ТекстСообщения = Ванесса.ПолучитьТекстСообщенияПользователю("Файл <%1> не найден.");
+		ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайла); 
+		ВызватьИсключение ТекстСообщения;
+	КонецЕсли;	 
+КонецПроцедуры