Folder Open

[questionit]

I have this code to open Folder view. I am not sure how to retreive name and path of the selected folder and assign it to a variable (string type) ..Help please

Public shlShell As Shell32.Shell
Public shlFolder As Shell32.Folder
Const BIF_RETURNONLYFSDIRS = &H1
 
Public Sub Command2_Click()
 
Set shlShell = New Shell32.Shell
Set shlFolder = shlShell.BrowseForFolder(Me.Hwnd, "Select a Folder", BIF_RETURNONLYFSDIRS)
End Sub
 

[MikeTheBike]

Hi

I have this code to open Folder view. I am not sure how to retreive name and path of the selected folder and assign it to a variable (string type) ..Help please

Public shlShell As Shell32.Shell
Public shlFolder As Shell32.Folder
Const BIF_RETURNONLYFSDIRS = &H1
 
Public Sub Command2_Click()
 
Set shlShell = New Shell32.Shell
Set shlFolder = shlShell.BrowseForFolder(Me.Hwnd, "Select a Folder", BIF_RETURNONLYFSDIRS)
End Sub
 

Do you need to use the shell ?

Perhaps you could use the FileDialogue

Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        .Show
        If .SelectedItems.Count <> 0 Then MsgBox .SelectedItems(1)
    End With

??

You will need a reference to Microsoft Office Object Library

Just a thought

MTB