---

Путь = "";
ВвестиСтроку(Путь, "Введите полный путь к файлу", 200);
Путь = СокрЛП(Путь);

// Заменяем все "\" на перенос строки
Путь = СтрЗаменить(Путь, "\", Символы.ПС);

// Имя файла — последняя строка
ИмяФайла = СокрЛП(СтрПолучитьСтроку(Путь, СтрЧислоСтрок(Путь)));

Сообщить("Имя файла: " + ИмяФайла);