Windows 10 App-Verknüpfung auf dem Desktop erstellen vbsscript

Question

Ich versuche, ein VBS-Installationsprogramm zu erstellen, das eine Verknüpfung einer Windows 10-Anwendung auf dem Desktop erstellt. Aber nach stundenlangem Versuch kann ich es nicht funktionieren lassen.

Dies ist mein aktuelles Skript.

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 

Der Name des Programms, die ich für eine Verknüpfung erstellen möchten, ist „Todoist To-Do-Liste und Task-Manager“

Ich denke, das Hauptproblem ist der Zielpfad. Aber ich kann nicht herausfinden, wie ich auf eine Datei in einem speziellen Ordner zeigen soll. Der spezielle Ordner CLSID = {4234d49b-0245-4df3-b780-3893943456e1}. Wie zeige ich auf eine Datei in diesem Ordner?

Vielen Dank im Voraus,

Grüße,

Rick,

Answer 1

mir dauerte einige Zeit, aber ich endlich einen Weg gefunden :).

'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