Armazenar o Diretório de uma Pasta com BrowseForFolder - VBA Excel

Question

Olá,

Estou tentando armazenar o diretório de uma pasta utilizando: 

Sub Diretório ()

Dim ProcurarPasta As Object

Set ProcurarPasta = CreateObject("Shell.Application").BrowseForFolder(o, "Selecione a Pasta onde encontram-se os Arquivos.", o, OpenAct)

End Sub

Porém essa instrução retorna apenas o nome da Pasta, e não o diretório.

Há possibilidade de retornar o diretório da pasta selecionada utilizando a Caixa de Seleção de Pastas, ao invés da FileDialog?

Att, 

Answer 1

Olá, boa noite.

Não entendi o motivo de não usar o FileDialog. O que precisa que exatamente?

No exemplo a seguir é retornado todo o caminho da pasta:

Sub EscolherPasta()

With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    Debug.Print .SelectedItems(1)
End With
End Sub

Abraço.

---

Filipe Magno

Answer 2

Olá Filipe,

A ideia era apresentar ao usuário a caixa padrão do windows para seleção de pastas, ao invés da caixa de diálogo padrão da FileDialog.

Eu uso a FileDialog, e ela funciona perfeitamente, mas para melhorar a apresentação, gostaria de alterar o "tipo" de caixa de seleção apresentada ao usuário.

att,