使用vbs创建快捷方式，“打开快捷方式”的代码是什么，例如快捷方式将在

Question

Set oWS = WScript.CreateObject("WScript.Shell") 
sLinkFile = "%USERPROFILE%\Desktop\TTS.lnk" 
Set oLink = oWS.CreateShortcut(sLinkFile) 
oLink.TargetPath = "File\OtherFileInside\TTS.vbs"
oLink.Save 
WshShortcut.WorkingDirectory = "File\OtherFileInside"
WshShortcut.IconLocation = "notepad.exe, 0"

它不起作用快捷方式不会以“开始”

保存

Answer 1

WScript.Shell.CreateShortcut(String fileName)会创建一个WshShortcut对象。这是参考：

https://msdn.microsoft.com/fr-fr/library/xk6kst2k(v=vs.84).aspx

您的问题不明确，但如果您指的是工作目录（目标可执行文件将用作非限定文件名的默认位置，标记为＆＃34;开始于＆＃34;）然后使用WshShortcut.WorkingDirectory。

  

https://msdn.microsoft.com/fr-fr/library/ae0a4aee(v=vs.84).aspx

shortcut.WorkingDirectory = "C:\Example"

要设置快捷方式图标，请使用WshShortcut.IconLocation：

  

https://msdn.microsoft.com/fr-fr/library/3s9bx7at(v=vs.84).aspx

     

定位图标的字符串。该字符串应包含完全限定的路径和与该图标关联的索引。有关详细信息，请参阅示例。

shortcut.IconLocation = "notepad.exe, 0"

以下是基于此屏幕截图的完整参考资料：

• ＆＃34;目标＆＃34;
  • WshShortcut.TargetPath
  • https://msdn.microsoft.com/fr-fr/library/594k4c67(v=vs.84).aspx
• ＆＃34;从＆＃34;开始
  • WshShortcut.WorkingDirectory
  • https://msdn.microsoft.com/fr-fr/library/ae0a4aee(v=vs.84).aspx
• ＆＃34;快捷键＆＃34;
  • WshShortcut.Hotkey
  • https://msdn.microsoft.com/fr-fr/library/3zb1shc6(v=vs.84).aspx
• ＆＃34;运行＆＃34;
  • WshShortcut.WindowStyle
  • https://msdn.microsoft.com/fr-fr/library/w88k7fw2(v=vs.84).aspx
• ＆＃34;注释＆＃34;
  • WshShortcut.Description
  • https://msdn.microsoft.com/fr-fr/library/ybdhh477(v=vs.84).aspx
• ＆＃34;打开文件位置＆＃34;
  • 使用WshShell.Run( FileSystemObject.GetParentFolderName( shortcut.Target ) )
• ＆＃34;更改图标＆＃34;
  • 使用WshShortcut.IconLocation
  • https://msdn.microsoft.com/fr-fr/library/3s9bx7at(v=vs.84).aspx
• ＆＃34;高级＆＃34;
  • ＆＃34;以管理员身份运行＆＃34;遗憾的是，WshShell并未公开选项。