Create Shortcut via VBA

[MikoSDS]

Hello Everyone,

I wonder if it's possible to make a shortcut with multiple targets, because my code doesn't work with 3 paths. Below code and screenshots.

Sub aa()


Dim sShortcutLocation As String


sShortcutLocation = "C:\Temp Logs\AA.lnk"


With CreateObject("WScript.Shell").CreateShortcut(sShortcutLocation)
    .TargetPath = "C:\Windows\System32\notepad.exe ""C:\Temp Logs\app.vbs"""
    .Arguments = "C:\Temp Logs\try.bat"
    .Description = "Shortcut to the file"
     .Save
End With


End Sub

Can you help? Thank you all in advance

 

[MikoSDS]

I want something, like in the screenshot below (I've done it manually)


C:\Windows\System32\notepad.exe "C:\Temp Logs\app.vbs" "C:\Temp Logs\try.bat"