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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
