根据论坛提示，自己定义快捷方式，但是由于我这个快捷方式的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"""
麻烦爷指点下
加好友 
发短信
Post By：2020/10/21 8:43:00 [只看该作者]
