// ПутьКФайлу – Строка – путь к файлу. // // Возвращаемое значение: // Строка – каталог файла // Функция ПолучитьКаталогФайла(Знач ПутьКФайлу) Экспорт ПозицияСимвола = СтрДлина(ПутьКФайлу); Пока ПозицияСимвола >= 1 Цикл Если Сред(ПутьКФайлу, ПозицияСимвола, 1) = "\" Тогда Возврат ПозицияСимвола; КонецЕсли; ПозицияСимвола = ПозицияСимвола - 1; КонецЦикла; Если ПозицияСимвола > 1 Тогда Возврат Сред(ПутьКФайлу, 1, ПозицияСимвола - 1); Иначе Возврат ""; КонецЕсли; КонецФункции
