Функция ПолучитьКороткоеИмяФайла(Знач ПолноеИмяФайла)

            Пока СтрНайти(ПолноеИмяФайла, "\", НаправлениеПоиска.СКонца) > 0 Цикл

                        Возврат Прав(ПолноеИмяФайла, СтрДлина(ПолноеИмяФайла) - СтрНайти(ПолноеИмяФайла, "\", НаправлениеПоиска.СКонца));

            КонецЦикла;

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