Search and open a pdf file

[twister007]

Hello,

I have a form with an actionbutton:

Private Sub pdf_Click()
Dim mod_ID$, stAppName$, stPathName$
art = Me!art_Art_ID
stAppName = "F:\apps\Adobe\AcroRd32.exe "
stPathName = "F:\data\ict\gen\" & "*" & art & "*" & ".pdf"
If Dir(stPathName) <> "" Then
Call Shell(stAppName & stPathName, 1)
Else
MsgBox stPathName & " Is not there"
End If
End Sub

This button opens a pdf file if exists in the directory F:\data\ict\gen . For so far this works fine. But how can I search for pdf files that are located in subdirs that exists in the directory F:\data\ict\gen ?

Thanks!

 

[ghudson]

Searching the forum is a great way to discover and learn the answers to your Access programming questions.

There are a few ways to do what you want. Here is one...

Using the FileSearch Object

Also, check out my Browse [Find a directory or file] sample on how to open a file using the ShellExecute method.