Функция, которая выдает информацию с пути файла: директория, название файла, расширение файла.
ПутьИИмя = "C:\dir\file.11.exe";
Путь = "";
Имя = "";
РасширениеФайла = "";
ПозСлэш = Найти(ПутьИИмя,"\");
Пока ПозСлэш > 0 Цикл
Путь = Путь + Сред(ПутьИИмя, 1, ПозСлэш);
ПутьИИмя = Сред(ПутьИИмя, ПозСлэш + 1);
ПозСлэш = Найти(ПутьИИмя, "\");
КонецЦикла;
ПозицияПоследнейТочки = 0;
РасширениеФайла = ПутьИИмя;
Пока 1 = 1 Цикл
ПозицияПоследнейТочки = Найти(РасширениеФайла, ".");
Если ПозицияПоследнейТочки = 0 Тогда
Прервать;
Иначе
РасширениеФайла = Сред(РасширениеФайла, ПозицияПоследнейТочки + 1)
КонецЕсли;
КонецЦикла;
Имя = ПутьИИмя;
Сообщить(Путь);
Сообщить(Имя);
Сообщить(РасширениеФайла);
2023-03-13
