标签：lnk CreateShortcut shortcut vbs lua file path luacom local

vbs（或者powershell代码）

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
Set shortcut=objShell.CreateShortcut("test.remote.lnk")
shortcut.TargetPath="C:\Users\rober\Documents\Lua\test.lua"
shortcut.Save()

对应

local luacom=require'luacom'
local shortcut_file_path='test_create_shortcut.lnk'
local target_file_path=arg[0]
local shellObject=luacom.CreateObject("WScript.Shell")
local shortcut=shellObject:CreateShortcut(shortcut_file_path)
shortcut.TargetPath=target_file_path
shortcut:Save()
assert(io.open(shortcut_file_path)):close()--short cut file exist now
os.remove(shortcut_file_path)

特别注意的是，vbs的objShell.CreateShortcut(..)对应lua的shellObject:CreateShortcut(..)（其中的冒号:）。
否则，shellObject.CreateShortcut(shortcut_file_path)报错"快捷方式路径名称需以 .lnk 或 .url 结尾。"（"The shortcut pathname must end with .lnk or .url"）。
以为是编码问题折腾了很久..
已在luacom反馈（不过作者消失很久了！），应该报错校验self参数失败，或者2#参数缺失。
而shortcut.Save()会报错"self parameter not found."。

顺带，在stackoverflow的第一篇回答io - Create lnk shortcut from lua (without lfs) - Stack Overflow

标签：lnk,CreateShortcut,shortcut,vbs,lua,file,path,luacom,local
来源： https://www.cnblogs.com/RobertL/p/16299089.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。