[Resolvido]ListBox listar ficheiros PDF contidos numa pasta dos meus documentos

Boa tarde

Tenho na minha BD um botão que ao fazer click abre uma pasta dos meus documentos, que contém documentos PDF.

Pergunto:
É possivel criar uma ListBox num formulário na BD, essa LisBox listar todos os PDF contidos nessa pasta ?

Obrigado

Veja este exemplo do Grande Armund Dezii;

Vamos imaginar que a sua pasta com os PDF`s estão no seguinte diretorio:

C:\PDF\

http://dl.dropbox.com/u/771097/PopulateFilesIn%20ListBox.rar

Mais um exemplo amigão...

Arquivo = Dir(Caminho & "\*.PDF", vbArchive)

Do While Arquivo <> ""

lstbox.AddItem (Caminho & "\" & ";" & Arquivo)

Arquivo = Dir

Loop

Sds,


Pablo

Obrigado
JPaulo

Pablo obrigado
Mas não testei porque não sei como executar a sua dica

Boa tarde,

Gostaria de saber se é possível no exemplo que nosso mestre JPaulo postou, na listbox em vez de aparecer o caminho completo
dos ficheiros, poderia aparecer somente o nome dos ficheiro e sua respectiva extenção.

Vou continuar a tentar alterar o código....
Agradeço desde já ajuda...


Abraço..

Roberto
Assim ?

Estes PDF estão numa pasta junto da BD

Sim grande Assis.....

Então copia o formulario para a sua BD

Cria uma pasta com o nome "PDF" na mesma diretoria da BD

Bom dia,

Assis já implementei o código no form que eu tinha criado e fiz uma pequenas alterações no código para satisfazer minhas necessidades.
Uma das alterações Foi intruduzir o código do abrir PDF ao fazer duplo click na lista.
Ficou fantastico...

Agradeço mais uma vez pela ajuda....


Abraço.

Olá amigos,

Gostaria de agradecer o exemplo que vocês fizeram, era exatamente o que eu procurava.

Agora, eu gostaria de criar um campo de pesquisa para pessoa ir digitando o nome e ir filtrando o arquivo. Eu consigo fazer isso, desde que os dados sejam provenientes de uma tabela/consulta, mas ainda não consegui adaptar, já que nesse caso, a listbox lista os arquivos de uma pasta, e não de uma tabela/consulta. Alguém poderia me ajudar?

Desde já, obrigado.

Arboit.

Marcelo

Teste

Tem uma pasta chamada " PDF " com alguns ficheiros em PDF, um ou mais começam pela letra z.

Depois de abrir a BD, e digite por exemplo a letra z para procurar ...

http://ge.tt/2f1D9NT2

Olá, Assis.

Quase isso.. Fiz conforme você explicou, mas além dos que começam com Z ele traz outros arquivos sem Z no nome.

Assis, a ListBox só tem uma coluna, como é que você invoca a segunda coluna ?

strList = Me.Lista0.Column(1, i)

O correto será:

strList = Me.Lista0.Column(0, i)

Marcelo

Já ajuda um pouco.

Vamos ver se aparece aqui a ajuda de algum amigo, com mais conhecimentos que eu.

Porque depois de digitar a letra "Z" ele filtra, mas ao limpar a caixa de pesquisa a caixa de listagem deveria alterar também.

Aguardemos ....

Assis,

Eu vi a dica que JPAULO deu, adaptei ao exemplo e funcionou!!

Ainda tem esse lançe de limpar a caixa de listagem e o arquivo continuar selecionado, mas é o de menos.

Obrigado novamente a vocês!!

Abs.,
Marcelo.

JPaulo

Tem como filtrar a caixa de listagem ao limpar ou ao alterar na caixa de procura ?

Obrigado

Mais ou menos isto;

http://dl.dropboxusercontent.com/u/771097/Pasta%20%282%29.zip

JPaulo

Formato de base de dados não reconhecido

Meu sistema é Office 2007 pack 3

Try;

http://dl.dropboxusercontent.com/u/771097/Pasta_II.zip

J Paulo

Continua o mesmo erro ...

Experimente tirar os espaços do nome da BD.

É bom também mudar de pasta para outra pasta fora
da pasta Users.

Já tive problemas com isso.

Editando: Aqui funfou Assis

[ ]'s

Parece que quando se abre no Ms Access 2010, já não é reconhecido no Ms Access 2007.

Veja assim;

http://dl.dropboxusercontent.com/u/771097/Caixa_de_Listagem.zip

Obrigado JPaulo

Funfa direitinho .

Fico feliz.

JPaulo

Tem um pequeno ... senão .

Se digitar algo que não exista na caixa de listagem, nã deixa limpar e bloqueia .
Por exemplo no exemplo que me mandou :

Digite a letra X

É só adaptar.

A alteração foi feita em cima do joelho.

JPaulo

Não sei como adaptar.

Código:

Sub SelecionaReg()
    On Error Resume Next
    Dim i As Variant
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    Dim j As Variant
    Dim h As Variant
   
    strProcura = UCase$(Me.txt_nome.Text)
    intPos = Len(strProcura)
    j = 0
    h = Lista0.ListCount
   
    If intPos Then
        For i = 0 To Lista0.ListCount - 1
            strList = Me.Lista0.Column(0, i)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.Lista0.Selected(i) = True
                Selecionado = True
                Me.Lista0 = Me.Lista0.Column(0, i)
                Exit For
            Else
                Me.Lista0.RemoveItem Index:=i
                Me.Lista0.Selected(i) = False
                Selecionado = False

              j = j + 1
                                If j >= h Then Exit Sub
                i = i - 1

            End If
        Next
    End If
End Sub


Obrigado JPaulo

Bom

Fico feliz.

Obrigado pelo retorno o forum agradece.

Neste Natal ajude...