お久しぶりです。
ワード検索しても載っていなかったので教えてください。

コモンダイログでフォルダ名だけを取得して
テキストボックスの中に表示したいのですが方法がわかりません。

↓ファイル名の取得はできたのですが

Private Sub Command1_Click()
'CommonDialog1.Filter = "フォルダ|\"

CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName

End Sub

ファイル名のフルパスからフォルダ名を切り出すにはInStrRevを使えば良いです。

Private Sub Command1_Click()
    Dim sBuff As String
    
    CommonDialog1.ShowOpen
    sBuff = CommonDialog1.FileName
    sBuff = Left$(sBuff, InStrRev(sBuff, "\"))
    Text1.Text = sBuff
End Sub

ですが、そもそもフォルダのみを指定したいなら
APIのSHBrowseForFolderを使用してフォルダの参照ダイアログを出した方が見た目にも良いと思います。

> ファイル名のフルパスからフォルダ名を切り出すにはInStrRevを使えば良いです。
nanashiさんありがとうございます。
InStrRevでフォルダ名のパスは取得できましたが フォルダの参照ダイアログを出したほうが
良さそうです。

> ですが、そもそもフォルダのみを指定したいなら
> APIのSHBrowseForFolderを使用してフォルダの参照ダイアログを出した方が見た目にも良いと思います。
APIのSHBrowseForFolderを試してみたいと思います。