Option Compare Database

Option Explicit


' 08/19/2008

'      the purpose of this module is to find either Adobe Acrobat or Reader

'      so we can use the VBA Shell() command to open a PDF file

'      Shell() can automatically find programs like WINWORD.EXE or EXCEL.EXE

'      but    1) Adobe may not be in the PATH

'      and 2) the user may have either the Reader or the full Acrobat


' this code requires a reference to the Microsoft Scripting Runtime

'      usually found at C:\WINDOWS\system32\scrrun.dll


' this code was adapted from the article

'   Extreme file and folder scripting

'   http://blogs.msdn.com/gstemp/archive/2004/08/10/212113.aspx


Function GetAdobeReader() As String

    Dim fso As FileSystemObject

    Dim oFolder As Folder, oFile As File

    Dim sFolder As String, sAdobe As String

    ' set the starting point

    sFolder = "C:\Program Files\Adobe"


    Set fso = CreateObject("Scripting.FileSystemObject")

    Set oFolder = fso.GetFolder(sFolder)

    GetAdobeReader = GetAdobeReader_Sub(oFolder)

End Function


Function GetAdobeReader_Sub(oFolder As Folder) As String

    Dim oSubFolder As Folder, oFile As File

    Dim sAdobe As String


    ' look in all subfolders

    For Each oSubFolder In oFolder.SubFolders

        For Each oFile In oSubFolder.Files

            Select Case oFile.Name

                Case "acrobat.exe", "acroread.exe", "AcroRd32.exe"

                    GetAdobeReader_Sub = oFile.ParentFolder & "\" & oFile.Name

                    Exit Function

            End Select

        Next oFile

        sAdobe = GetAdobeReader_Sub(oSubFolder)

    Next oSubFolder

    GetAdobeReader_Sub = sAdobe

End Function