vb6 - 如何使用vb6中的浏览按钮获取文件路径

Question

我正在使用此代码，它给出的文件名如“C:\File\sample.txt”。但我需要像“C:\File\”这样的路径。我怎样才能得到这条路？

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

Answer 1

尝试

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

Answer 2

在文件名中是您的对话框文件名，其中包含您的文件名..您需要通过查找文件名来删除它\

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

此代码\从您的文件路径（“C:\File\sample.txt”）中查找最后一个。基本上文件路径在文件路径的末尾有文件名。所以找到最后一个\并删除它。这对我来说很好。