使用命令行创建WIN快捷方式

test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut(".\index.lnk")
oShellLink.TargetPath = test & "\html\index.html"
oShellLink.WindowStyle = 1
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = ".\"
oShellLink.Save

因为没有直接的命令来实现，因此通过VBA实现。

需要注意的是TargetPath不能使用相对路径。所以这里才会有获取工作路径的test。