Como escolher uma pasta vba

[Adahm]

Adeus a todos.

Estou procurando a maneira de selecionar uma pasta do Windows, para que você possa usá-lo como um destino para salvar alguns arquivos.
Encontrei este código:

dim shellapp como objeto

'criar uma janela do navegador de arquivos na pasta padrão
shellapp set = createobject("shell.application"). Não.
navegador(0, "escolha a pasta", 0, openat)
...

mas abre-me uma janela um pouco obsoleta que não me permite uma navegação fácil.

Há também essa outra maneira que eu uso no acesso para fazer a mesma coisa:

 ...
set fd = application.filedialog(msofiledialogfolderpicker)
...

mas no inventor não funciona.

olhando em bate-papos autodesk, Eu acho que eu entendo que no inventor você pode abrir ou salvar arquivos usando janelas de seleção, mas não selecionar pastas.
Alguém sabe mais alguma coisa?

 

[Adahm]

se alguém deve servir, eu descobri que o inventor não reconhece "msofiledialogfolderpicker" que deve ser substituído por um "4 muito simples".
então o código simplificado poderia ser o seguinte:

sub mostracartellaselezionata()
dim selecionadofolder

com aplicação. Arquivo(4)
.
selectfolder = .selecteditems(1)
fim com

Mostra l'indirizzo della cartella selezionata
msgbox (selectedfolder)
end sub

 

[Zac69]

Eu guardo nas pastas que eu quero que eu personalizei o arquivo do projeto para que, dentro da minha área de trabalho, as subpastas usadas frequentemente. neste ponto quando eu salvar ou abrir eu posso acessar diretamente essas pastas, simplesmente selecionando o link que aparece na janela.
ponto 4 sob "Opções de configuração para projetos":

http://help.autodesk.com/view/invntor/2019/ita/?guid=guid-34126f60-3093-4144-8aa5-809b4d35dca1

 

[Andrea Scarnecchia]

oi, eu não sei se é isso que você precisa, mas eu uso este bloco para escolher a pasta de tempos em tempos durante a operação atual (vb.net):

dim diálogo = novo folderbrowserdialog com {
.selectedpath = percorso di default,
.shownewfolderbutton = true,
.description = "scegli la cartla dove salvare i file."
?
se diálogoresult.ok = diálogo.showdialog() então
ofilepath = diálogo.selectedpath & "\"
mais
messagebox.show("procedura annullata.", "info")
retorno
terminar se

 

[Adahm]

oi, eu não sei se é isso que você precisa, mas eu uso este bloco para escolher a pasta de tempos em tempos durante a operação atual (vb.net):

dim diálogo = novo folderbrowserdialog com {
.selectedpath = percorso di default,
.shownewfolderbutton = true,
.description = "scegli la cartla dove salvare i file."
?
se diálogoresult.ok = diálogo.showdialog() então
ofilepath = diálogo.selectedpath & "\"
mais
messagebox.show("procedura annullata.", "info")
retorno
terminar se

Obrigado.
mas isto está em vb.net.
Eu uso vba e o código é ligeiramente diferente.