[Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

boa tarde, estou com uma duvida,
Queria lista as pastas em ListBox e ao clicar abrir a pasta em ListBox e clicar no arquivo em PDF que esta dentro e abrir.
Access

Amigo, por coincidência ou pq vc e um cara de muita sorte, a um tempo achei um exemplo exatamente com tudo que vc precisa...

So nao lembro mais onde foi que achei esse Exemplo, mas acho que foi daqui do Fórum... Como esta sem Autoria nos código, nao sei quem o Fez...



dropbox.com/s/5ht5gvy3slsqnd8/Listar%20Pasta%20e%20PDF.rar?dl=0 <=== Baixe aqui

não consigo aumentar o campo do pdf, tipo para não aparecer essas barras de rolagem, ja abrir o documento todo do lado.

Então, eles costumam ser chatos mesmo...

mas aumente pelo VBA:

'Largura
Me.pdf5.Width = 568 * 21
'Altura
Me.pdf5.Height = 568 * 30

Tipo dento de ANO vai ter MESES e se dentro de MESES tiver outra pasta, como faço para abrir ?

Amigo, e so replicar o que foi feito no Campo Meses...

tentei e não consegui.

Amigo, tive que fazer uma pequena mudança na Função para carregar os Arquivos...
dropbox.com/s/420s9h3izw8wryo/Listar%20Pasta%20e%20PDF.rar?dl=0

Agora Ao chamar a Função Call ListaArquivos agora terá que informar o caminho da pasta ou Variavel contendo o vaminho da pasta:
Call ListaArquivos(F)


Agora Lista os PDF em cada Pasta Selecionada.
Ano>Mes>Dia.

Veja la como foi feito.

você tem algum codigo que aparece JPG e PDF na listBox ?

Queria pesquisa na listbox, vc tem algum codigo

O Link da mensagem anterior foi alterado, tinha Upado o arquivo errado.

Veja bem, o responsavel para listar somente os arquivos é a função : Sub ListaArquivos(xDiretorio As String)


Nessa linha, vc pode definir os tipos de aquivo pretendido: Arquivo = Dir(xDiretorio & "\*.*", vbArchive)

Troque o *.* pelo formato Desejado.

Queria listar Imagem e PDF ao clicar na imagem ela abrir e o pdf tambem.
e fazer um filtro nas listbox

Olá Amigos


Dando um pitaco

Tenho esse exemplo no fórum: maximoaccess.com/t19285p5-resolvidosistema-de-letras-de-musicas#144008

Ele utiliza a dll do Acrobat Reader, portanto, é necessário que ele esteja instalado no computador.

Dá para fazer o mesmo utilizado a dll do Foxit Reader que é gratuito.

Espero que ajude.

[ ]'s

não e bem isso não Noobezinho,

O modelo que o nosso amigo FabioPaes mandou esta perfeito, só que eu queria que na listagem aparecesse além do PDF o JPG tambem só isso.

Modelo a ser alterado - dropbox.com/s/420s9h3izw8wryo/Listar%20Pasta%20e%20PDF.rar?dl=0

Junior

Caixa de listagens e caixas de combinação não aceitam imagens, somente aceitam caracteres.


Agora, se realmente deseja colocar um thumbnail na frente de cada arquivo PDF, é possível fazer

utilizando um subformulário continuo, simulando uma listbox.

Para isso, terá que criar uma tabela para guardar o caminho de cada arquivo.pdf e sua imagem para

poder exibir na "ListBox" (subformulário Contínuo).

Se tiver interesse, retorne que envio o arquivo.

[ ]'s

Sim tenho interesse.

Eu queria que na LISTBOX do exemplo dele ai que aparece o PDF tambem aparecesse o JPG entendeu. quando eu clicar no PDF ele abrir e quando eu clocar no JPG ele abrir tbm.

Aqui está.

Terá trabalho braçal, o que te ajudará na aprendizagem.

O arquivo que estou disponibilizando é um exemplo para você ter como base.

Se tiver alguma dificuldade, retorne nesse tópico mesmo.

[ ]'s

não e bem isso não.

você chegou a baixar o exemplo do parceiro FabioPaes, então e daquele mesmo jeito e só queria que na listagem aparecesse .JPG e .PDF que esta dentro da pasta que eu cliquei.

No formulário do exemplo tem 5 caixas de listagem.

Entendi que lstArqDiretorio, deseja exibir uma imagem miniatura ou thumbnail

dessa maneira

------------------------------------------------------------
imagem1 | Arquivo1.pdf
------------------------------------------------------------
imagem2 | Arquivo2.pdf
------------------------------------------------------------


Se for isso, o exemplo que disponibilizei, faz isso, é só ter um pouco

de criatividade.

Agora, se ainda não é isso, explique melhor.

São 3 caixa de listagem com - ANO MÊS DIA
ao selecionar o ano irá aparecer as pastas que tem dentro na listagem MES e selecionando o MES irá aparecer PDF que tem dentro ou pastas.
e na Listagem CONHECIMENTO DIRETORIO e onde aparece os arquivos que tem dentro de cada pasta nesse caso os PDF que ao selecionar ele aparece do lado sendo exibido.
O que eu quero e que na listagem CONHECIMENTO DIRETORIO aparece PDF e JPG só isso.
meu whats ( 93 ) 9 9183-4874

Se você colocar alguma imagem dentro da pasta LISTAGEM e dentro de alguma MÊS, ao selecionar ela irá aparecer CONHECIMENTO DIRETORIO porem ela não abre.
eu só queria clicar em cima e ela abrir.

Noobezinho, o que o colega quer na verdade é que onde exibe o PDF (Lado direito), ao clicar em uma Imagem, ela seja exibida também do lado direito, e ao clicar em um PDF ela também seja Exibida.


Junior_atm Vc precisará colocar um controle de Imagem do mesmo tamanho do que tem o PDF, deverá colocar em cima do quadro que exibe o PDF...

Coloque Tanto o controle de Imagem, quanto o do PDF, ambos ocultos...

E, ao clicar no arquivo, faça uma verificação na extensão... se for PDF exiba o Controle de PDF e aplique nele o PDF seleciona.
Se for uma Imagem, deverá exibir o controle de imagem e aplicar a imagem...


Para ver como aplicar imagem vinculada veja aqui: https://www.maximoaccess.com/t26710-resolvidovincular-foto-por-cadastro-da-matricula

Acredito que assim deverá funcionar!

Olá Fabio

Criquio?

Sou o Balem

Agora entendi !!

É isso ai que explicou

Grande abraço !!

Ops! Desculpa nobre amigo Noobezinho!

Lendo vários posts ao mesmo tempo rerererererere

Na listagem aparece PDF e JPG.
o PDF abre do lado direto
ja o JPG não abre e dar erro, eu queria que ao clicar no JPG ele abria no visualizador de imagens do windows.

Segue modelo

Então amigo, o maior problema é a falta de informações... Vao surgindo aos poucos e o post ica longo... perdemos tempo... Enfim.



Ao clicar na ListBox que mostra os documentos, faça uma verificação, pegando os 4 Ultimos Caracter do Arquivo (que será a Extensão do arquivo .jpg .png .pdf...)

Em cima dessa Verificação, se for PDF abre normal no Formulario, se for Imagem vc abre no visualizador do Windows:


'Abre com visualizador Imagem do Windows
Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Arquivo, vbMaximizedFocus

& Arquivo é o nome da Variavel com o Caminho\NomeArquivo.Extesao do arquivo a ser aberto.

FabioPaes

Tentei e não consegui, ele não abre.... segue o sistema

ver se você quebra esse galho ai.



https://www.dropbox.com/s/wf459shfuzzf9wr/SOL%20PES%20-%20Gerenciador%20de%20Pesquisa%20de%20Arquivos.rar?dl=0

Mude o comando do evento ao Clicar, para:

Código:

Private Sub lstArqDiretorio_Click()
Dim F As String
F = Right(Me.lstArqDiretorio, 4) 'Pega a extensão do arquivo
Caminho = Replace(lstArqDiretorio.Column(0) & lstArqDiretorio.Column(1), "\\", "\") 'Remove uma \ a mais que fica no caminho do arquivo
Select Case F
    Case ".JPG", ".PNG", ".BPM" 'Coloque aqui os formatos das fotos para abrir
    Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Caminho, vbMaximizedFocus
    Case ".PDF"
    'CARREGA ARQUIVO
    pdf5.LoadFile (Caminho)
    pdf5.SetViewRect 10, 10, 100, 200
    'MOSTRA/OCULTA A BARRA DE FERRAMENTEAS
    pdf5.setShowToolbar (1)
    'DEFINE O ZOOM PADRÃO DA IMAGEM
    pdf5.setZoom (90)
    'Largura
    Me.pdf5.Width = 450 * 30
    'Altura
    Me.pdf5.Height = 340 * 30
    Case Else
    MsgBox "Arquivo Não configurado para Exibição!" & vbNewLine & "Por Favor Contate o Administrador!", vbInformation, "Atenção"
End Select
End Sub

Para configurar a visualização de outro tipo de arquivo, pasta colocar novo Caso ( Select Case ".extensao" ).

Valeu FabioPaes, muito obrigado por essa ajuda.

ajudou muito.

Grato pelo retorno! Feliz Natal a Todos!!! Até a próxima se Deus quiser!