Common directory tree view in an userform

[bruno.trudo]

Hi guys,
is there a way how can I show and use a common directory tree view or list (I mean a one with yellow folders next to the directory) in my userform?
Thanks

 

[jimboy]

Hi - welcome to the board.

This will bring up the Browse for folder box and load textbox1 with the selected drive & folder, you will need CommandButton1 and textbox1 on your userform...

Private Sub CommandButton1_Click()
Dim objShell As Object
Dim objFolder As Object
Dim strFolderFullPath As String

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Please select a folder", 0, "C:\MyFolders\TestFolder")

If (Not objFolder Is Nothing) Then
    
    On Error Resume Next
    If IsError(objFolder.Items.Item.Path) Then strFolderFullPath = CStr(objFolder): GoTo Here
    On Error GoTo 0
    
    If Len(objFolder.Items.Item.Path) > 3 Then
        strFolderFullPath = objFolder.Items.Item.Path & Application.PathSeparator
    Else
        strFolderFullPath = objFolder.Items.Item.Path
    End If
Else
    MsgBox "User cancelled": End
End If

Here:
'Loads Textbox1 with drive
TextBox1.Value = strFolderFullPath
End Sub

 

[bruno.trudo]

Thanks, it works well!