Люди добрые помогите!!! есть строка "D:\1с\1с базы 8.0\База\ЗаказыУдалить.epf" нужно при нажатии на кнопку что бы он мне взял и обрезал правую часть строки по символ "\", как сделать незнаю

т.е. в смысле -получить папку ?

ДлинаПути = СтрДлина(Путь);
Для Сч = 1 По ДлинаПути Цикл
    ТекСимвол = Сред(Путь, ДлинаПути - Сч + 1, 1);
    Если ТекСимвол = "\" Тогда
         Прервать;
    КонецЕсли;
КонецЦикал;

Сообщить(Лев(Путь), ДлинаПути - Сч);

ПозицияСимвола = Найти(Путь, "/");
ЛеваяЧасть = Лев(Путь,ПозицияСимвола);

Упс, последняя строка так:
Сообщить(Лев(Путь, ДлинаПути - Сч));

(2) Накуя цикл то...

(5) Чтобы последний слеш найти

Файл = Новый Файл("D:\1с\1с базы 8.0\База\ЗаказыУдалить.epf")
Сообщить(Файл.Путь);
Сообщить(Файл.Имя);

(2,3,4) Полный ППЦ

(0) А зачем тебе это надо то?

(8) Ну, не такой полный, как хотелось бы :)

да нужно просто открыть папку

Процедура ОткрытьФайл(Кнопка)
   ТекущаяСтрока = ЭлементыФормы.Файлы.ТекущаяСтрока;
   Если ТекущаяСтрока=Неопределено Тогда
       Возврат;
   КонецЕсли;
   КомандаСистемы(СокрЛП(""""+ТекущаяСтрока.ПутьКФайлу+""""));    
КонецПроцедуры

так он открывает файл, а мне папка нужна

Процедура КоманднаяПанельЗагрузитьИзФайла()
   //СтрокаКода="1";
   Файлик=Константы.ПутьСО.Получить();// вот тут напиши свой путь к папке с файлами
   ПутьФайлика=Файлик;
   
   МассивФайлов=НайтиФайлы(ПутьФайлика,"*.*");
   Если МассивФайлов.Количество()=0 Тогда
       Предупреждение("Нет файлов для загрузки");
       Возврат;    
   КонецЕсли;
   Если Материалы.Количество() > 0 Тогда
       
       ТекстВопроса = "При утвердительном ответе табличная часть будет очищена. Очистить?";
       Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да, Метаданные().Синоним);
       Если Ответ <> КодВозвратаДиалога.Да Тогда
           
       иначе
           Материалы.Очистить();
       КонецЕсли;
   КонецЕсли;
   
   Список=Новый СписокЗначений;
   Для Индекс = 0 По МассивФайлов.ВГраница() Цикл
       Файл        = МассивФайлов[Индекс];
       
       Попытка
           Файл.ЭтоКаталог();
       Исключение
           Продолжить; // нет доступа к файлу
       КонецПопытки;
       
       Если Файл.ЭтоКаталог() Тогда
           Продолжить;
       Иначе
           Если Файл.Расширение <> ".txt" Тогда
               Продолжить;
           КонецЕсли;
           Список.Добавить(Файл, Файл.Имя);
       КонецЕсли;
   КонецЦикла;
   
       Файло=Список.ВыбратьЭлемент("Укажите нужный файл");
   Если Файло<>Неопределено Тогда
       Если  ПрочитатьФайл(Файло.Значение.ПолноеИмя) = Ложь Тогда
           Возврат;
       КонецЕсли;
       Исходник=Новый ХранилищеЗначения(Новый ДвоичныеДанные(Файло.Значение.ПолноеИмя));
       ИсходникПуть=Файло.Значение.ПолноеИмя;
       ЗаполнениеДокумента();
   КонецЕсли;
   МассивФайлов=0;
КонецПроцедуры

?

(15) Не понял

Ну или вот

Процедура ПутьКФайламНачалоВыбора(Элемент, СтандартнаяОбработка)
   
   ФайлВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
   ФайлВыбора.Расширение = "mxl";
   ФайлВыбора.Фильтр =    "Файл данных (*.mxl)|*.mxl";
   ФайлВыбора.Заголовок =    "Выберите файл";
   Если ФайлВыбора.Выбрать() Тогда
       ПутьКФайлуОтчета = ФайлВыбора.ПолноеИмяФайла;
   КонецЕсли;
   СтандартнаяОбработка = Ложь;
   
КонецПроцедуры

(14) а проще нельзя?

у меня на форме есть строка , с путем файла, нужно открыть пакту в которой лежит файл

(18) Тебе чего надо? открыть папку с файлом или диалог выбора файла?

(19) Совсем дятел, да? Все уже разжевали.

Файл = Новый Файл("D:\1с\1с базы 8.0\База\ЗаказыУдалить.epf")
ЗапуститьПриложение(Файл.Путь);

(21) грубить только не надо!!!!!!!

Всем большое спасибо, !!!!!!!!!!!!!!!!

тут не грубить надо, а сразу лопатой по башке.

я куею в этом зоопарке (с) :))))))