kısayol oluşturma

[heft]

Merhabalar,
c:\den\a.xls
c:\den\b.xls
c:\den\c.xls

dosyalarım var a dosyasındaki userform1 üzerinde Command1 butonuna nasıl bir kod yazmalıyımki a,b ve c dosyalarının kısayollarını masaüstüne atsın?

ve bunu yaparken masa üstünde varsa kısayolları koymasın "Dosya var"diye uyarsın.

Umarım yapılabilir...
Þimdiden teşekkür ederim....

 

[Levent Menteşoğlu]

Aşağıdaki kodu commandbuttona kopyalayarak deneyin.

[vb:1:b1ff4242d8]Private Sub CommandButton1_Click()
Set ds = CreateObject("Scripting.FileSystemObject")
Set yol = CreateObject("WScript.Shell")
masaustuyol = yol.SpecialFolders("Desktop")
dosya = Array("a.xls", "b.xls", "c.xls")
For a = 0 To 2
deg = ds.FileExists(masaustuyol & "\" & dosya(a) & ".lnk")
If deg = True Then
MsgBox dosya(a) & " İSİMDE BİR KISAYOL MEVCUTTUR"
GoTo 10
Else
Set kisayol = yol.CreateShortcut(masaustuyol & "\" & dosya(a) & ".lnk")
kisayol.TargetPath = "c:\den\" & dosya(a)
kisayol.Save
End If
10 Next
Set yol = Nothing
MsgBox "KISAYOLLAR OLUÞTURULDU"
End Sub
[/vb:1:b1ff4242d8]

Not:

1-CreateObject("Scripting.FileSystemObject") hakkında detaylı bilgi

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

2-CreateObject("WScript.Shell") hakkında detaylı bilgi

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

 

[heft]

TEÞEKKÜRLER SYN LEVENTM...

 

[heft]

selamlar
peki bu bilgiler ışığında şunu sormak istiyorum
masaüstüne yerleşen bu kısa yolun simdesini "adsız.bmp" den aldırarak değiştittirebilir miyiz ?

ADSIZ.BMP YOLU C:\den\adsız.bmp

 

[Haluk]

Aşağıdaki kırmızı renkli satırı, belirtilen yere yerleştirin.

[vb:1:ad4baafa2d].....
....
kisayol.TargetPath = "c:\den\" & dosya(a)
kisayol.IconLocation = yol.ExpandEnvironmentStrings("C:\den\adsız.bmp , 0")
kisayol.Save
End If
....
...
[/vb:1:ad4baafa2d]

 

[heft]

Bu gün beni çok sevindirdiniz syn Haluk allah ta sizi sevindirsin.
Çok teşekkürler
Sağolun

 

[heft]

Selamlar
Çok güzel olduda bunu
c:\para\ytl.xls yolundaki tek dosya için bir türlü uyarlayamadım
şimdiden teşekkür


Private Sub CommandButton1_Click()
Set ds = CreateObject("Scripting.FileSystemObject")
Set yol = CreateObject("WScript.Shell")
masaustuyol = yol.SpecialFolders("Desktop")
dosya = Array("a.xls", "b.xls", "c.xls")
For a = 0 To 2
deg = ds.FileExists(masaustuyol & "\" & dosya(a) & ".lnk")
If deg = True Then
MsgBox dosya(a) & " İSİMDE BİR KISAYOL MEVCUTTUR"
GoTo 10
Else
Set kisayol = yol.CreateShortcut(masaustuyol & "\" & dosya(a) & ".lnk")
kisayol.TargetPath = "c:\den\" & dosya(a)
kisayol.IconLocation = yol.ExpandEnvironmentStrings("C:\den\adsız.bmp , 0")
kisayol.Save
End If
10 Next
Set yol = Nothing
MsgBox "KISAYOLLAR OLUÞTURULDU"
End Sub

 

[Haluk]

http://www.mrexcel.com/board2/viewtopic.php?p=908797#908797

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

 

[heft]

Çok teşekkür ler sağ olun :mutlu:

 

[akalan]

macro ile kısa yol oluşturma

Merhaba

benim sorum biraz daha basit. açık olan excel dosyasını tüm kullanıcılar için tek butonla masaüstüne kısayol oluşturmasını istiyorum.
Yardımcı olabilirmisiniz