Bom dia/Boa Tarde/Boa Noite a todos.
Eu tenho um código, em anexo, que lista o conteúdo de um diretório no listbox.
Eu procurei aqui no fórum mas não consegui encontrar algum tópico que solucione minha dificuldade.
Eu preciso criar uma pesquisa de arquivos baseado em três parâmetros que o usuário digitar: Parte do Nome; Tipo de Arquivo; Pasta/SubPasta.
O código é bem pequeno e simples.
Dim xArquivos As String
xArquivos = Dir$("c:\*.*")
While xArquivos <> ""
xArquivos = Dir$
lstArquivos.AddItem xArquivos
Wend
Me.Requery
O link para o mdb é: https://www.dropbox.com/s/sqq1talar3ev2yt/Pesquisa%20Documentos.mdb?dl=0
Fazer com que o VBA pegue o que o usuário digitar no TEXT, eu consigo.
O que eu não consigo é listar os arquivos numa sub-pasta (sub-diretório) e abri-lo com dois cliques
Agradeço a todos.
Eu tenho um código, em anexo, que lista o conteúdo de um diretório no listbox.
Eu procurei aqui no fórum mas não consegui encontrar algum tópico que solucione minha dificuldade.
Eu preciso criar uma pesquisa de arquivos baseado em três parâmetros que o usuário digitar: Parte do Nome; Tipo de Arquivo; Pasta/SubPasta.
O código é bem pequeno e simples.
Dim xArquivos As String
xArquivos = Dir$("c:\*.*")
While xArquivos <> ""
xArquivos = Dir$
lstArquivos.AddItem xArquivos
Wend
Me.Requery
O link para o mdb é: https://www.dropbox.com/s/sqq1talar3ev2yt/Pesquisa%20Documentos.mdb?dl=0
Fazer com que o VBA pegue o que o usuário digitar no TEXT, eu consigo.
O que eu não consigo é listar os arquivos numa sub-pasta (sub-diretório) e abri-lo com dois cliques
Agradeço a todos.
- Anexos
- Pesquisa Documentos.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (44 Kb) Baixado 7 vez(es)