EXCEL dosyamın Kısayolunu masaüstünde oluşturmak için API

[umutsancar]

EXCEL dosyamın Kısayolunu masaüstünde oluşturmak için API arıyorum. Çözümü var mıdır?


Saygılarımla,

 

[Ali]

Yabancı bir siteden alınma bir örnek var.İşinize yarar diye ekliyorum incelersiniz

 

[umutsancar]

Güzel bir örnek, çok teşekükkür ederim.

 

[Levent Menteşoğlu]

EXCEL dosyamın Kısayolunu masaüstünde oluşturmak için API arıyorum. Çözümü var mıdır?

Neden Api arıyorsunuz anlayamadım. Bu işlem windows script ile kolayca yapılabilir. Örneğin aşağıdaki kod aktif dosyanın masa üstünde kısayolunu oluşturacaktır.

[vb:1:fe62cd84b7]Sub Desktopkisayol()
Set kisayol = CreateObject("WScript.Shell")
yol = kisayol.SpecialFolders("Desktop")
Set deg = kisayol.CreateShortcut(yol & "\" & ActiveWorkbook.Name & ".lnk")
With deg
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set kisayol = Nothing
MsgBox "Kısayol oluşturuldu"
End Sub[/vb:1:fe62cd84b7]

Ayrıca Windows script ile ilgili detay bilgi EXCEL DERSANESİndeki aşağıdaki linktedir.

http://www.excel.web.tr/viewtopic.php?t=6203