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

  • Pergunta

  • 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, 



    • Editado FBáfica sábado, 18 de julho de 2015 01:07
    sábado, 18 de julho de 2015 01:00

Respostas

  • 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

    sábado, 18 de julho de 2015 02:03

Todas as Respostas

  • 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

    sábado, 18 de julho de 2015 02:03
  • 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,

    sábado, 18 de julho de 2015 17:52