how to get file path using browse button in vb6

Question

I am using this code, it gives the file name like "C:\File\sample.txt". But I am in need of getting path like "C:\File\". How can I get this path?

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

Answer 1

Try

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

Answer 2

In FileName is Your dialog Box FileName that Contains Your File Name..You Need to Remove It By Finding Filename with a \

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

This code Finds Last \ from your File Path ("C:\File\sample.txt").Basically File Path Has Filename at the end of File Path.So Find the Last \ and Remove it. this Is working Fine form me.