Common Dialog или что-то другое

[Yuri_S]

Надо чтоб при нажатии например на кнопку открывалось окно "открыть файл" ( с comondialog уже на форме). И чтоб после фыбора этого файла в определенную переменную заносился полный путь к нему, сам файл открывать не надо, нужен только путь. Меня интересует последнее, хотя по-моему, там ничего сложного.... но я все равно бессилен.

[A.A.Z.]

Код: Выделить всё

CommonDialog1.ShowOpen
File$ = CommonDialog1.FileName

[Flo]

Я очень извиняюсь, но вопрос как раз в тему, если можно я присоединюсь

А как в этой ситуации из CommonDialog вытащить название файла и путь к нему отдельно? .FileName дает путь вместе с именем, а надо путь отдельно имя отдельно. Отрезать как-то до последнего слеша, но как? Я уж что-то запарилась , ума не хватает, помогите пожалуйста...

[ChelDm]

Повозись с функцией Mid и Len и функцией поиска символа в строке, не помню оной Может что и получится.
Прийду домой то наверно сделаю тебе вытаскивание имени файла

[Flo]

Поиск символа в строке это InStr и в целом приблизительно ясно, что делать. Только я не понимаю как найти именно последний слеш, ведь InStr вернет первый? Ну не смейтесь сильно, я еще мало-мало программирую.

[Flo]

Ой, ChelDm, спасибо за готовность помочь, но что-то после последней жалобы у меня, кажется, в голове прояснилось, я сама сделала:

Код: Выделить всё

    Temp$ = .filename
   
    Do While InStr(Temp$, "\") > 0
        Temp$ = Mid(Temp$, InStr(Temp$, "\") + 1)
    Loop
   
    dbName = Temp$
    dbDir = Mid(.filename, 1, Len(.filename) - Len(dbName))


Не знаю, насколько это грамотно, но кажется работает. Извиняюсь за беспокойство

[GSerg]

Есть InStrRev...
Но она не нужна, поскольку есть CommonDialog.FileTitle

[Flo]

Эх, Gserg, где ж ты раньше был... Спасибо!