// Функция выделяет из имени файла его расширение

//

// Параметры

//  ИмяФайла     – Строка, содержащая имя файла, неважно с именем каталога или без.

//

// Возвращаемое значение:

//   Строка – расширение файла.

//

Функция ПолучитьРасширениеФайла(ИмяФайла) Экспорт



	ПозицияПоследнейТочки = 0;

	РасширениеФайла = ИмяФайла;



	Пока 1 = 1 Цикл

	

		ПозицияПоследнейТочки = Найти(РасширениеФайла, ".");



		Если ПозицияПоследнейТочки = 0 Тогда



			Прервать;



		Иначе



			РасширениеФайла = Сред(РасширениеФайла, ПозицияПоследнейТочки + 1)



		КонецЕсли;



	КонецЦикла;



	Возврат ?(РасширениеФайла = ИмяФайла, "", РасширениеФайла);



КонецФункции