Функция ПолучитьКороткоеИмяФайла(Знач ПолноеИмяФайла)//Ark, 2024-01-31

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

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

            КонецЦикла;

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