Abrir um texto em PDF listado numa ListBox

Bom dia pessoal!

Estou com dificuldades para montar um código para abrir um arquivo PDF a partir de clique-duplo. Este arquivo PDF aparece dentro de uma listbox. Quero um comando para, quando der dois cliques neste arquivo listado na ListBox, abri-lo em PDF.

A listbox abre a partir de um comando relacionado a subpastas. Até aqui tudo bem.

Se eu uso o Shell, o comando abre o AdobeReader, mas sem o texto.

Alguém pode me ajudar? A listbox está em anexo.

Bom dia

Tente adaptar

Troque "Me.Lista0" pelo nome da sua cx de listagem

Private Sub Lista0_DblClick(Cancel As Integer)
Dim varItem As Variant
If IsNull(Me.Lista0) Then
MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
Exit Sub
End If
For Each varItem In Lista0.ItemsSelected
If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then

Dim strCaminho$
strCaminho = CurrentProject.path & "\PDF\" 'aqui o destino da pasta dos PDF
On Error GoTo 1

Application.FollowHyperlink strCaminho & Me.Lista0.Column(0)

1:

Else
DoCmd.CancelEvent
Exit Sub
End If
Next varItem
Me.Lista0.Requery
End Sub

Bom dia Assis! Obrigado pelo retorno.

Esta retornando com a mensagem de "método ou membro não encontrado", logo na primeira linha do seu código.

Eu exclui a sua declaração de strCaminho, pois eu já tinha declarado anteriormente. E minha ListBox tem o nome de textos_disponiveis. Veja como está meu código completo, junto com a sua sugestão:

Dim Caminho As String

Sub AtualizaArquivos(SubPasta As String)

Dim objFSO As Object
Dim objPasta As Object
Dim objArquivo As Object


Set objFSO = CreateObject("Scripting.FileSystemObject")

'Set objPasta = objFSO.GetFolder(Application.ActiveWorkbook.Path & "\Videos\" & SubPasta & "\")
Set objPasta = objFSO.GetFolder("C:\Psy_Project" & "\Textos\" & SubPasta & "\")

Caminho = objPasta.Path & "\"

textos_disponiveis.Clear

For Each objArquivo In objPasta.Files
textos_disponiveis.AddItem objArquivo.Name

Next
End Sub

Private Sub botao_gestalt_Click()
Call AtualizaArquivos("Gestalt Terapia")
End Sub

Private Sub botao_hipnose_Click()
Call AtualizaArquivos("Hipnose")
End Sub

Private Sub botao_psicanalise_Click()
Call AtualizaArquivos("Psicanálise")
End Sub

Private Sub botão_tcc_Click()
Call AtualizaArquivos("TCC")
End Sub

Private Sub textos_disponiveis_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim varItem As Variant
If IsNull(Me.textos_disponiveis) Then
MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
Exit Sub
End If
For Each varItem In textos_disponiveis.ItemsSelected
If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then
On Error GoTo 1

Application.FollowHyperlink Caminho & Me.textos_disponiveis.Column(0)

1:

Else
DoCmd.CancelEvent
Exit Sub
End If
Next varItem
Me.textos_disponiveis.Requery
End Sub

End Sub