Vbscript 在桌面VBSSCcript上创建Windows 10应用程序快捷方式

我尝试创建一个VBS安装程序，在桌面上创建Windows 10应用程序的快捷方式。然而，经过几个小时的努力，我似乎无法让它工作

这是我当前的脚本。

With CreateObject("WScript.Shell")
    With .CreateShortcut(.SpecialFolders("Desktop") & "\Todoist To-Do List and Task Manager.lnk")
         .TargetPath = "shell:AppsFolder" & "\Todoist To-Do List and Task Manager"
         .Description = "Todoist To-Do List and Task Manager"
         .Save
    End  With
End  With

我要为其创建快捷方式的程序名为“Todoist to Do List and Task Manager”

我认为主要的问题是目标路径。但我似乎无法找到如何指向特殊文件夹中的文件。特殊文件夹CLSID={4234d49b-0245-4df3-b780-3893943456e1}。如何指向该文件夹中的文件

提前多谢了

您好

---

瑞克，

花了我一些时间，但我终于找到了一个办法：）

---

在

shell:AppsFolder

之后缺少一个

\

。否则的话，谢谢你的快速回答：）！但是，它会创建应用程序文件夹的快捷方式，而不是Win 10 Store应用程序的快捷方式。你可能知道如何解决这个问题吗？如果你成功地解决了你的问题，那么点击勾号将你的答案标记为已接受。

'Add AppUserModelid to AutoHotKey filesys
'Change file extension
strFile = scriptdir & "\Todoist_global_shortcuts.ahk"
WScript.Echo strFile
strRename = scriptdir & "\Todoist_global_shortcuts.txt"

If filesys.FileExists(strFile) Then
   filesys.MoveFile strFile, strRename
End If

'Create shortcut
With CreateObject("WScript.Shell")
    With .CreateShortcut(.SpecialFolders("Desktop") & "\Todoist To-Do List and Task Manager.lnk")
         .TargetPath = "shell:AppsFolder\" & pathStr
         .Description = "Todoist To-Do List and Task Manager"
         .Save
    End  With
End  With