Check if a pdf reader is installed on a pc

[kelly mort]

I have been searching the Web for solutions. I have seen a few examples of how to check if an Adobe Reader is installed but what I want is to be able to check if any pdf reader at all is installed.
This from excel forum:

How to check if Adobe Acrobat Reader was installed on your computer or not? [SOLVED]

Hi beautiful people, How to check if Adobe Acrobat Reader was installed on your computer or not? I need a vba code for this. Best wishes.

www.excelforum.com

I also came across this post on stack overflow:

Check if there is any kind of PDF Reader installed

I have a Help function in my Application, that consists of one webbrowser control. That webbrowser control gets filled with a .pdf file, the source for that .pdf file is our own website. The probl...

stackoverflow.com

Which is not VBA code though.

Can someone help me with how to use VBA to check if any pdf reader is installed?
Thanks in advance.

 

[Kyle123]

You could also do it like this:

Public Function IsPDFReaderInstalled() As Boolean

    Dim oReg As Object
    Set oReg = CreateObject("WScript.Shell")
    
    On Error Resume Next
        oReg.RegRead "HKEY_CLASSES_ROOT\MIME\Database\Content Type\application/pdf\" & "CLSID"
                
    If Err.Number = 0 Then
        IsPDFReaderInstalled = True
        Exit Function
    Else
        'There's no default handler, is MS EDGE installed?
        Err.Clear
        On Error GoTo 0
        IsPDFReaderInstalled = IsEdgeInstalled
    End If

End Function

Function IsEdgeInstalled() As Boolean

    Dim temp As Object
    Dim rPath As String
    Dim keys()
    Dim key

    Set temp = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

    rPath = "Local Settings\Software\Microsoft\Windows\CurrentVersion\AppModel\PackageRepository\Packages"
    temp.EnumKey &H80000000, rPath, keys
    For Each key In keys
        If key Like "Microsoft.MicrosoftEdge*" Then
            IsEdgeInstalled = True
            Exit For
            Exit Function
        End If
    Next
    
End Function

 

[kelly mort]

@Kyle123

I called the code like this:

Sub Test ()
     MsgBox IsPDFReaderInstalled
End Sub

And I get an error message:
Run-time error 92.
For loop not initiated.


On this line:

For Each key In keys