[Resolvido]Selecionar/Abrir Arquivos PDF pelo Formulário

Olá Pessoal, tenho um formulário com um ListBox chamado "lstArquivosPDF" e gostaria de visualizar os arquivos exportados pelo Access nesta ListBox. Também ao clicar gostaria de abri-los. Alguém tem alguma dica por favor?

strCaminho = \\192.168.0.1\Financeiro\Relatorios\AquiEstaoOsArquivos.pdf

Desde já agradeço a ajuda!

Boa tarde,
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute(Application.hWndAccessApp, "Open", "\\192.168.0.1\Financeiro\Relatorios\AquiEstaoOsArquivos.pdf", "", "C:\", SW_SHOWNORMAL)

????????????????????????????????????????????????????????????????????????

Então Jeferson?
No módulo onde tenha o botão para abrir o ficheiro

Option Compare Database
Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub CmdAbrir_Click()
ShellExecute(Application.hWndAccessApp, "Open", "\\192.168.0.1\Financeiro\Relatorios\AquiEstaoOsArquivos.pdf", "", "C:\", SW_SHOWNORMAL)
End Sub

Olá Alexandre Neves, para qual versão do Access é esta função? Uso o 2003 e deu um erro na função do botão!

Penso que funcionará no 2003. Experimente com um caminho de ficheiro no disco e confirme

Olá Alexandre, consegui usando o seguinte código:

Código:

Private Sub Form_Open(Cancel As Integer)
Dim strDiretorio, strPasta, strFicheiros
    strDiretorio = "\\192.168.0.1\Financeiro\Relatorios\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set strPasta = fso.GetFolder(strDiretorio)
Set strFicheiros = strPasta.Files
    Me.lstArquivosPDF.RowSourceType = "Value List"
    For Each File In strFicheiros
    Me.lstArquivosPDF.AddItem (File.Name)
    Next
Me.btmAbrirArquivo.Enabled = False
End Sub

E um botão "Abrir Arquivo PDF"

Código:

Private Sub AbrirArquivo_Click()
Dim strDiretorio As String
    strDiretorio = "\\192.168.0.1\Financeiro\Relatorios\"
    FollowHyperlink strDiretorio & Me.txtNomeArquivo
End Sub

Mas agora eu gostaria que o Access filtrasse somente o arquivo que tem a extenção *.pdf tem alguma dica para isso? Pois quando o formulário abre ele filtra qualquer arquivo da pasta incluindo os arquivos do sistema (ex: *.dat; *.inf ...).

Desde já agradeço a ajuda!

Boa tarde,
tem de começar a fazer ginástica
For Each File In strFicheiros
if right(File.Name,3)="pdf" then Me.lstArquivosPDF.AddItem (File.Name)
Next

Podes crer... valeu a ajuda Amigo Alexandre!