以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]创建快捷方式问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157564)

--  作者:jiskin
--  发布时间:2020/10/21 8:43:00
--  [求助]创建快捷方式问题
根据论坛提示,自己定义快捷方式,但是由于我这个快捷方式的TargetPath是带参数的,系统就报错了,实际手动制作快捷方式是可以用参数的
Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String = "C:\\Users\\admin\\Desktop\\pstest.lnk"
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = """C:\\Program Files (x86)\\Run\\test.exe""" & " -dec -file " & """C:\\Program Files (x86)\\Run\\pslink.check""" 
wshs.WorkingDirectory = "C:\\Program Files (x86)\\Run"
wshs.Save()
wshs = Nothing
wsh = Nothing

TargetPath换一种拼接也不行
wshs.TargetPath = """C:\\Program Files (x86)\\Runas\\CPAU.exe"" -dec -file ""C:\\Program Files (x86)\\Runas\\pslink.check"""

麻烦爷指点下

--  作者:有点蓝
--  发布时间:2020/10/21 9:11:00
--  
试试
wshs.TargetPath = "C:\\Program Files (x86)\\Run\\test.exe"
wshs.WorkingDirectory = "C:\\Program Files (x86)\\Run"
wshs.Arguments = "-dec -file ""C:\\Program Files (x86)\\Run\\pslink.check"""

或者
wshs.Arguments = "-dec -file C:\\Program Files (x86)\\Run\\pslink.check"

--  作者:jiskin
--  发布时间:2020/10/21 11:55:00
--  
蓝总,完美