Makro ile kısa yol oluşturmak

[acolkesen1]

Arkadaşlar Merhaba, herkese iyi günler diliyorum.Hazırladığımız bir çalışmayı bir klasör içine kaydederken, kaydet makrosunun sonuna ekleyeceğimiz kodlarla masa üstüne kısa yol oluşturmak mümkünmüdür? Örnek; C içindeki ABC klasörü içine "ali" xls. dosyasını kaydediyoruz.Bu dosyaya ait kısa yol masa üstüne gelebilir mi? Herkese iyi çalışmalar..

 

[Zeki Gürsoy]

Kısayol oluşturma üzerine forumda örnekler mevcuttur.
Bunlardan biri,
WScript.Network & WScript.Shell Metot ve Özellikleri
ba&#351;l&#305;&#287;&#305; alt&#305;ndad&#305;r. <10 - CreateShortcut(Dosya)>

 

[metot]

sayin anemos

ustadim paylasiminiz icin tesekkurler gercekten de cok ise yarayacak bir calisma..

 

[musculus]

özür dilerim ama kodları hangi bölüme yazacağız ben modülde yazdığım zaman ekteki hatayı veriyor

 

[Zeki Gürsoy]

Referans&#305; eklememi&#351;siniz. "Windows Script Host Object Model"

 

[acolkesen1]

Say&#305;n anemos &#252;stad, bende de Sn musculus daki hatay&#305; veriyor. Referans eklemeye &#231;al&#305;&#351;t&#305;m ama olmad&#305;. "C "i&#231;inde "A "klas&#246;r&#252;nde "test.xls" yi esas alarak basit bir &#246;rnek kod g&#246;nderebilir misiniz acaba? ilginize te&#351;ekk&#252;r ederim.

 

[Zeki Gürsoy]

Sayın anemos üstad, bende de Sn musculus daki hatayı veriyor. Referans eklemeye çalıştım ama olmadı. "C "içinde "A "klasöründe "test.xls" yi esas alarak basit bir örnek kod gönderebilir misiniz acaba? ilginize teşekkür ederim.

Sub Create_Shortcut()
Dim Wsh As Object, Desktop As String, CShortcut As Object
 
Set Wsh = CreateObject("WSCRIPT.Shell")
 
With Wsh
Desktop = .SpecialFolders("Desktop") & "\"
 
Set CShortcut = .CreateShortcut(Desktop & "TestXLS.lnk")
 
    With CShortcut
        .TargetPath = "C:\A\Test.xls"
        .WindowStyle = 1
        .Save
    End With
 
End With
 
End Sub

 

[musculus]

Teşekkür ederim Anemos bilgilerine sağlık.
Bu arada Sakarya'yı çok severim Akyazı'da 8 sene görev yapmıştım.

 

[Zeki Gürsoy]

Teşekkür ederim Anemos bilgilerine sağlık.
Bu arada Sakarya'yı çok severim Akyazı'da 8 sene görev yapmıştım.

Hendek'liyim, saygılar...

 

[acolkesen1]

De&#287;erli hem&#351;erim,ilginize &#231;ok te&#351;ekk&#252;r ederim...Nereli oldu&#287;unuza dikkat etmemi&#351;tim, Say&#305;n musculus mesaj&#305;ndan sonra dikkatimi &#231;ekti. D&#252;zce ve Hendek olduk&#231;a yak&#305;n say&#305;l&#305;r biribirine.. Tekrar te&#351;ekk&#252;r eder iyi g&#252;nler dilerim.