は、vbs関数へのスペースを含む引数を渡すことができません

function readFromRegistry (strRegistryKey, strDefault) 
    Dim WSHShell, value 
    On Error Resume Next 
    Set WSHShell = CreateObject ("WScript.Shell") 
    value = WSHShell.RegRead (strRegistryKey) 
    if err.number <> 0 then 
     readFromRegistry= strDefault 
    else 
     readFromRegistry=value 
    end if  
    set WSHShell = nothing 
    end function 

function OpenWithChrome(sPage) 
    Dim strChrome 
    Dim WShellChrome 
    strChrome = readFromRegistry ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe\Path", "") 
    if (strChrome = "") then 
     strChrome = "chrome.exe" 
    else 
     strChrome = strChrome & "\chrome.exe" 
    end if 
    Set WShellChrome = CreateObject("WScript.Shell") 
    strChrome = """" & strChrome & """" & " " & sPage 
    WShellChrome.Run strChrome, 1, false 
    end function 
    OpenWithChrome "auto slides.html"

最後の行では、引数をスペースで含む関数OpenWithChromeを呼び出しています。しかし、それは私のブラウザでそのファイルを開くことができません。は、vbs関数へのスペースを含む引数を渡すことができません

出典

2017-04-21 NaviKesh Doddi