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, "\"))