Рефакторинг удаления файлов в УдалитьУстаревшиеФайлы

Author: artbear

src/Классы/УстановкаПакета.os

@@ -340,12 +340,12 @@
 КонецПроцедуры
 
 Процедура УдалитьУстаревшиеФайлы(Знач ПутьУстановки)
-	ФайлыДляУдаления = НайтиФайлы(ПутьУстановки.ПолноеИмя, "*.os", Истина);
-	Для Каждого Файл из ФайлыДляУдаления Цикл
-		УдалитьФайлы(Файл.ПолноеИмя);
-	КонецЦикла;
+	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "*.os", Истина);
+	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "*.dll", Истина);
+КонецПроцедуры
 
-	ФайлыДляУдаления = НайтиФайлы(ПутьУстановки.ПолноеИмя, "*.dll", Истина);
+Процедура УдалитьФайлыВКаталоге(Знач ПутьКаталога, Знач МаскаФайлов, Знач ИскатьВПодкаталогах = Истина)
+	ФайлыДляУдаления = НайтиФайлы(ПутьКаталога, МаскаФайлов, ИскатьВПодкаталогах);
 	Для Каждого Файл из ФайлыДляУдаления Цикл
 		УдалитьФайлы(Файл.ПолноеИмя);
 	КонецЦикла;