Открыть PDF файл

Dim fullpathChrome$
       fullpathChrome = Replace$(fullpath, " ", "%20")
       Call ShellExecute(0, "open", "chrome.exe", fullpathChrome, "", SW_SHOWMAXIMIZED) 'Хром

Option Explicit
 
'Декларация функции для запуска файла
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
 
Public Const SW_SHOWMAXIMIZED = 3
 
Sub Main()
    Dim path$
    path = "I:\события документа\"
    Dim file$
    file = "Эндрю Питоньяк1.pdf"
    Dim path_file$
    path_file = path & file
    If Len(Dir(path_file)) = 0 Then
        MsgBox "Отсутствует требуемый файл", 48, "Ошибка"
    Else
       Call ShellExecute(0, "open", path_file, "", "", SW_SHOWMAXIMIZED) 'приложение, открывающее по умолчанию файлы pdf
       path_file = """" & path_file & """"
       Call ShellExecute(0, "open", "chrome.exe", path_file, "", SW_SHOWMAXIMIZED) 'открыть pdf файл с помощью браузера Chrome
   End If

Sub GetDefaultAppForPdf()
    Dim cmd As String
    cmd = "cmd /c assoc .pdf"
    Dim wsh As Object
    Set wsh = CreateObject("WScript.Shell")
    Dim output As String
    output = wsh.Exec(cmd).StdOut.ReadAll()
 
    Dim association As String
    association = Split(output, "=")(1)
    association = Trim(association)
 
    cmd = "cmd /c ftype " & association
    output = wsh.Exec(cmd).StdOut.ReadAll()
 
    Dim defaultApp As String
    defaultApp = Trim(output)
 
    MsgBox "The default application for opening PDF files is: " & defaultApp, vbInformation, "Default PDF Application"
 
    Set wsh = Nothing
End Sub

Sub PDFProg()
    Const PDFAssocKey$ = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.pdf\UserChoice\ProgId"
    Dim sProg$
    sProg = CreateObject("WScript.Shell").RegRead(PDFAssocKey)
    MsgBox sProg
End Sub