Pfd file open using shell command

[Omar]

I have gotten some code from Barb Reinhardt some time ago, but want to add
some more code to it. I want it to not only search that folder but all of the
subfolders in that same directory.

i know that the file applicationfile.search has a subdir property, but i
couldn't use that solution, so barb gave me this. How do i make this code
search the sub folders? Is there a property that does this?


Private Sub Lbx_file_names_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'
If (Lbx_file_names.Value <> "") Then
'
Adobe_Filename_Pick = Lbx_file_names.Value
'
End If
'
If (Adobe_Filename_Pick <> "") Then
'
Shell "C:\Program Files (x86)\Adobe\Acrobat 9.0\Acrobat\Acrobat.exe" & _
(" " + MyFolder + Adobe_Filename_Pick), 1
'" X:\Omar\Finished_Flanges\14_600_RTJ_WN_S40.pdf", 1
'
' the following prints the document
'Application.SendKeys "^p~", False
'
End If
'
End Sub

Thanks,
Omar