hi,

Dim MyPath As String
    MyPath = SelectFolder("Select Folder", "")
    If Len(MyPath) Then
        MsgBox MyPath
    Else
        MsgBox "Cancel was pressed"
    End If

TextBox2.Text = MyPath

Function SelectFolder(Optional title As String, Optional TopFolder As String) As String

Dim objShell As New Shell32.Shell

Dim objFolder As Shell32.Folder 'If you use 16384 instead of 1 on the next line,'files are also displayed

Set objFolder = objShell.BrowseForFolder(0, title, 1, TopFolder)

If Not objFolder Is Nothing Then

SelectFolder = objFolder.Items.Item.Path

End If

End Function

example :  TextBox2.Text =  D:\\Solidworks API\oldfile

i used above code for folder path. but ineed to show folder name only.

Example

example : TextBox2.Text = oldfile