Перем гИмяКаталога;

Процедура УстановитьКаталог (ИмяКаталога) Экспорт
	гИмяКаталога = СокрП (ИмяКаталога);
	Символ = Прав (гИмяКаталога, 1);
	
	Если ((Символ <> "/") И (Символ <> "\")) Тогда
		гИмяКаталога = гИмяКаталога + "/";
	КонецЕсли;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура УдалитьКаталог (ИмяКаталога)
	ИмяФайла = ФС.НайтиПервыйФайл (ИмяКаталога + "*.*");
	
	Пока ПустаяСтрока (ИмяФайла) = 0 Цикл
		УдаляемыйФайл = ИмяФайла;
		ИмяФайла = ФС.НайтиСледующийФайл ();
		
		Если ((УдаляемыйФайл <> ".") И (УдаляемыйФайл <> "..")) Тогда
			Атрибуты = "";
			ФС.АтрибутыФайла (ИмяКаталога + УдаляемыйФайл,, Атрибуты);
			Если Сред (Атрибуты, 4, 1) = "1" Тогда
				УдалитьКаталог (ИмяКаталога + УдаляемыйФайл);
			Иначе
				ФС.УдалитьФайл (ИмяКаталога + УдаляемыйФайл);
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	
	ФС.УдалитьКаталог (ИмяКаталога);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура Деструктор () Экспорт
	УдалитьКаталог (гИмяКаталога);
КонецПроцедуры
