Как получить путь к файлу, используя кнопку обзора в VB6

Question

Как получить путь к файлу, используя кнопку обзора в VB6

Я использую этот код, он дает имя файла, например, "C:\File\sample.txt". Но мне нужно получить путь как "C:\File\". Как я могу получить этот путь?

Private Sub cmdBrowse_Click()
    CommonDialog1.ShowOpen
    txtPath1.Text = CommonDialog1.FileName 
End Sub

-1

vb6 filepath common-dialog

Источник

user8757136 23 апр '18 в 06:39

2 ответа

Другие вопросы по тегам vb6 filepath common-dialog

user7132550 23 апр '18 в 07:08 2018-04-23 07:08 · Answer 1 · 2018-04-23 07:08

Пытаться

txtPath1.Text = Mid(CommonDialog1.FileName, 1, InStrRev(CommonDialog1.FileName, "\"))

0

Источник

user7132550 23 апр '18 в 07:08

user8289199 23 апр '18 в 08:16 2018-04-23 08:16 · Answer 2 · 2018-04-23 08:16

В FileName это ваше диалоговое окно FileName, которое содержит ваше имя файла. Вам нужно удалить его, найдя имя файла с \

   With CommonDialog1
    TextBox1.Text = .FileName.Substring(0, .FileName.LastIndexOf("\"))
   End With

Этот код находит последний \ из вашего пути к файлу ("C:\File\sample.txt"). В основном путь к файлу имеет имя файла в конце пути к файлу. Так найти последний \ и удали его. это работает отлично меня.