Acrobat Reader Path function modification

[jimfortune]

I have modified my GetAcroPath function to:

Function GetAcroDir() As String
Const LatestVer = 7
Dim strAcroDir(Late stVer - 2) As String
Dim I As Integer

strAcroDir(1) = "C:\Program Files\Adobe\Acr obat 3.0\Reader\"
strAcroDir(2) = "C:\Program Files\Adobe\Acr obat 4.0\Reader\"
strAcroDir(3) = "C:\Program Files\Adobe\Acr obat 5.0\Reader\"
strAcroDir(4) = "C:\Program Files\Adobe\Acr obat 6.0\Reader\"
strAcroDir(5) = "C:\Program Files\Adobe\Acr obat 7.0\Reader\"
strLocatedAcroD ir = ""
For I = LatestVer - 2 To 1 Step -1
If Dir(strAcroDir( I), vbDirectory) <> "" Then
strLocatedAcroD ir = strAcroDir(I)
Exit For
End If
Next I
GetAcroDir = strLocatedAcroD ir
End Function

It allows for Acrobat Reader 7.0 plus allows me to check for the
existence of the directory and AcroRd32.exe separately. It still
assumes that Acrobat Reader is installed into it's default install
directory.

James A. Fortune

[Douglas J. Steele]

Why do you need this? If you use the FollowHyperlink method, or the
ShellExecute API (see http://www.mvps.org/access/api/api0018.htm at "The
Access Web" for sample code), you'll automatically start with whichever
version is registered.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

<ji********@com pumarc.com> wrote in message
news:11******** **************@ z14g2000cwz.goo glegroups.com.. .

I have modified my GetAcroPath function to:

Function GetAcroDir() As String
Const LatestVer = 7
Dim strAcroDir(Late stVer - 2) As String
Dim I As Integer

strAcroDir(1) = "C:\Program Files\Adobe\Acr obat 3.0\Reader\"
strAcroDir(2) = "C:\Program Files\Adobe\Acr obat 4.0\Reader\"
strAcroDir(3) = "C:\Program Files\Adobe\Acr obat 5.0\Reader\"
strAcroDir(4) = "C:\Program Files\Adobe\Acr obat 6.0\Reader\"
strAcroDir(5) = "C:\Program Files\Adobe\Acr obat 7.0\Reader\"
strLocatedAcroD ir = ""
For I = LatestVer - 2 To 1 Step -1
If Dir(strAcroDir( I), vbDirectory) <> "" Then
strLocatedAcroD ir = strAcroDir(I)
Exit For
End If
Next I
GetAcroDir = strLocatedAcroD ir
End Function

It allows for Acrobat Reader 7.0 plus allows me to check for the
existence of the directory and AcroRd32.exe separately. It still
assumes that Acrobat Reader is installed into it's default install
directory.

James A. Fortune

[jimfortune]

Douglas J. Steele wrote:

Why do you need this? If you use the FollowHyperlink method, or the
ShellExecute API (see http://www.mvps.org/access/api/api0018.htm at "The Access Web" for sample code), you'll automatically start with whichever version is registered.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

I do use the ShellExecute API in conjunction with it. I'd rather not
use fHandleFile. I have not considered the FollowHyperlink method yet.
I'd rather prevent errors than catch them. I think the FollowHyperlink
method will likely involve error catching also. Thanks for the
suggestions.

James A. Fortune