2017-07-08 14 views
0

デスクトップにWindows 10 APPのショートカットを作成するVBSインストーラを作成しようとしました。しかし、試して数時間後、私はそれを動作させるように見えることはできません。デスクトップにWindows 10アプリのショートカットを作成するvbsscript

これは私の現在のスクリプトです。

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リストとタスクマネージャ」

です。しかし、私は特別なフォルダの中のファイルを指す方法を見つけることができないようです。特殊フォルダCLSID = {4234d49b-0245-4df3-b780-3893943456e1}。そのフォルダ内のファイルをどのようにポイントしますか?たくさん事前に

おかげで、

挨拶、

リック、

+0

あなたは 'shell:AppsFolder'の後に' '\' 'がありません。さもなければあなたは[良いはずです](https://stackoverflow.com/q/37171394/11683)。 – GSerg

+0

ああ、すでに助けてくれている高速回答に感謝します:)ただし、Win 10 Storeアプリケーションではなく、Applicationsフォルダへのショートカットが作成されます。あなたはおそらくそれを解決する方法を知っていますか? – arcety

答えて

0

は私にいくつかの時間がかかったが、私は最終的に方法を見つけた:)。

'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 
+0

問題を解決できた場合は、チェックをクリックして回答を承認済みとしてマークしてください。 – BoffinbraiN

関連する問題