Убрал неиспользуемую процедуру

Author: artbear

v8files-extractor.os

@@ -862,48 +862,6 @@
 
 КонецПроцедуры
 
-Функция ПолучитьПутьПрограммыИзСистемныхПутейЗапускаPath(ИмяФайла)
-
-	НайденныеФайлы = Новый Массив;
-	Расширение = "";
-
-	Если ЭтоWindows Тогда
-		Расширение = ".exe";
-	КонецЕсли;
-
-	СистемнаяИнформация = Новый СистемнаяИнформация;
-	ПапкаПоиска = СистемнаяИнформация.ПолучитьПеременнуюСреды("PATH");
-	РазделительПапок = ";";
-	СписокПапок = СтрРазделить(ПапкаПоиска, РазделительПапок);
-	Для сч = 0 По СписокПапок.ВГраница() Цикл
-
-		ПроверяемаяПапка = СписокПапок[сч];
-
-		// На Windows папка может быть обернута в кавычки, сбросим их
-		Если ЭтоWindows
-				И СтрДлина(ПроверяемаяПапка) >= 2
-				И Лев(ПроверяемаяПапка, 1) = """"
-				И Прав(ПроверяемаяПапка, 1) = """" Тогда
-			ПроверяемаяПапка = Сред(ПроверяемаяПапка, 2, СтрДлина(ПроверяемаяПапка) - 2);
-		КонецЕсли;
-
-		ПутьПоиска = ОбъединитьПути(ПроверяемаяПапка, ИмяФайла + Расширение);
-		ФайлПоиска = Новый Файл(ПутьПоиска);
-		Если ФайлПоиска.Существует() И НайденныеФайлы.Найти(ПутьПоиска) = Неопределено Тогда
-			НайденныеФайлы.Добавить(ПутьПоиска);
-		КонецЕсли;
-
-	КонецЦикла;
-
-	НайденныйФайл = "";
-	Если НайденныеФайлы.Количество() > 0 Тогда
-		НайденныйФайл = НайденныеФайлы[0];
-	КонецЕсли;
-
-	Возврат НайденныйФайл;
-
-КонецФункции
-
 Функция ОбернутьПутьВКавычки(Знач Путь)
 
 	Если Прав(Путь, 1) = "\" Тогда