Добираться до последнего слеша? Проще никак?

(0)
стр1 = стрЗаменить(стр, "\", Символы.ПС);
Сообщить(СтрПолучитьСтроку(стр1, СтрЧислоСтрок(стр1)))

ФАйл = Новый Файл(ИмяФайла);
Сообщить(Файл.Путь)

Судя по всему, это будет имя файла..

(2) Находил такое в гугле, но почему-то подумал, что будет создан файл. Сейчас попробую
Всем спасибо