| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]创建快捷方式问题 (http://foxtable.com/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 -- 蓝总，完美 |