怎样才能得到一个文件的路径地址，我想得到的是不包括文件名的路径地址？

Question

怎样才能得到一个文件的路径地址，我想得到的是不包括文件名的路径地址，例如：我选择的文件02bm32.dbf，路径地址为C:\Program Files\Microsoft Visual Studio\VB98\stonbing\江苏省\02bm32.dbf，但是我想得到的是C:\Program Files\Microsoft Visual Studio\VB98\stonbing\江苏省，有没有办法啊？谢谢，一定给分！

Answer 1

CommonDialog1.Filter = "Jpg (*.JPG)|*.JPG|BMP(*.BMP)|*.BMP"
    CommonDialog1.ShowOpen
    If CommonDialog1.filename <> "" Then        MsgBox Left(CommonDialog1.filename, InStrRev(CommonDialog1.filename, "\"))
        
    End If

Answer 2

Private Sub Form_Load()
Dim str As String
str = "C:\Program Files\Microsoft Visual Studio\VB98\stonbing\江苏省\02bm32.dbf"
 MsgBox Left(str, InStrRev(str, "\") - 1)End Sub