求高手帮看看创建快捷方式的求助

aails6543

高手们好，我用的是 360极速浏览器，想快速访问某网页，可在 360极速浏览器 创建个快捷方式，
在属性的   目标T  再填上 一串网址。  打开这个快捷方式就可直达打开指定的这个网页
搜了论坛创建快捷方式大同小异。代码如例如下

Sub test1()
    x = "C:\Documents and Settings\Administrator\Local Settings\Application Data\360Chrome\Chrome\Application\360chrome.exe" & """" & " https://club.excelhome.net/thread-898948-2-1.html"
    Set WshShell = CreateObject("Wscript.shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    Set oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Exhome.lnk")    '此处为快捷名称
'    oMyShortcut.IconLocation = ""    '此处为快捷图标
    oMyShortcut.TargetPath = x     '此处为右键属性后的 目标T 填的源文件 实际上我不要多个单引号 才能正常访问网页
    oMyShortcut.Hotkey = "ALT+CTRL+C"    ''此处为快捷热键
    oMyShortcut.Save
End Sub


但这串代码生成的还是有问题，怎么试都不成功。故求助
怎么使 目标T  的内容正确显示。 如下(后缀+1空格+网址)，之后，它就能正常打开网页面了
目标T ＝ "C:\Documents and Settings\Administrator\Local Settings\Application Data\360Chrome\Chrome\Application\360chrome.exe" https://club.excelhome.net/thread-898948-1-1.html
谢谢！

aails6543

不仅加了个引号， 而且网址的斜杠也变了的。

jz_l

aails6543

jz_l 发表于 2023-1-8 15:47

完美解决。 谢谢师傅！！太强了。有这个参数