自动化错误创build快捷方式

我创造了以下，现在正在给我带来麻烦！

我看不到任何理由，为什么这不起作用，它适用于一个通用的url – 只是不，如果我尝试在特定的浏览器中打开一个URL

Function Quote(inputText As String) As String Quote = Chr(34) & inputText & Chr(34) End Function Sub CreateShortCut() Dim oWSH As Object Dim oShortcut As Object Dim sPathDeskTop As String Dim tPath As String tPath = Quote("C:\Program Files (x86)\Microsoft Application Virtualization Client\sfttray.exe") & " /exe ff.exe " & Quote("Mozilla Firefox 38.3.0.0.1.V04") & " https://dwp.reach-interactive.com/account/login/" Set oWSH = CreateObject("WScript.Shell") sPathDeskTop = oWSH.SpecialFolders("Desktop") Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _ "Example Shortcut" & ".url") With oShortcut .TargetPath = tPath .Save End With Set oWSH = Nothing MsgBox "Shortcut Created!" ActiveWorkbook.Close End Sub