Kısayol Oluşturma

Merhaba iyi günler.


Merak ettiğim bir konu var. Vba üzerinden klasör oluşturabiliyoruz. Bu oluşturduğumuz klasörün kısayolunu oluşturabilirmiyiz. Biraz araştırdım ancak bu konu hakkında bilgi edinemedim. Yardımlarınız için şimdiden teşekkürler.

aşağıdakine benzer bir kod işinize yarayabilir
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

Teşekkür ederim inceleyip dönüş yapacağım

Teşekkürler cevaplanmışa taşıyabilirsiniz

Rica ederim
İyi çalışmalar)