ikon, dosya tanımı vs de eklenebilir
createshortcut koduyla ilgili bir araştırmayla daha çok bilgi edinebilirsiniz
dilerim işinize yarar
Dim oWsh As Object
Set oWsh = CreateObject("wscript.shell")
masaustU = oWsh.specialfolders("desktop")
kisayol = masaustU & "\YagizEBA kısa.lnk" ' kısayolun oluşturulacağı yer ve ad
Set oShort = oWsh.createshortcut(kisayol)
With oShort
.targetpath = masaustU & "\YagizEBA" 'dosya/klasör adresi
.Save
End With