素晴らしいコード!好奇心から、これはスクリプトが現在あるディレクトリで機能するので、すべてのディレクトリにスクリプトを表示させる方法はありますか?そうでなければ、これを学ぶことと、ショートカットをネイティブな方法にすることを学ぶこととの間に大きな違いはないようです。スクリプトを現在のフォルダにドラッグアンドドロップする必要がありますね。
解決策にたどり着きながら、ユーザーがリンクする必要のある特定のファイルに移動して選択できるようになりました。あなたがそれを使うことができるかどうかはわかりません。
Dim diaSelectFile
Set diaSelectFile = Application.FileDialog(msoFileDialogFilePicker)
diaSelectFile.Show
strPickedFile = diaSelectFile.SelectedItems(1)
Set diaSelectFile = Nothing
Dim oWsh
Dim myshortcut
Dim oShortcut
Dim strSplitFileName
Dim strTarget
Dim nShortName
Set oWsh = CreateObject("WScript.Shell")
strSplitFileName = Split(strPickedFile, "\")
nShortName = UBound(strSplitFileName)
strTarget = strSplitFileName(nShortName)
myshortcut = "C:\users\%USERNAME%\Desktop\" & strTarget & " - Shortcut" & ".lnk"
Set oShortcut = oWsh.CreateShortcut(myshortcut)
With oShortcut
.TargetPath = strPickedFile
.Save
End With
Set oWsh = Nothing
Set oShortcut = Nothing
繰り返しになりますが、これは右クリックしてデスクトップにショートカットを送信するよりも複雑に感じます。これを必要とするユーザーは誰ですか?コンピューターの基本的なタスクを検討するのに苦労している自閉症の友人がいたことは知っています。あなたが思いついたスクリプトが実際に顧客に役立つかどうかを知りたいと思います。