Desktopverknüpfung löschen / ändern

Bild

Betrifft: Desktopverknüpfung löschen / ändern
von: Wolfgang
Geschrieben am: 16.11.2003 12:45:19

Hallo liebes Forum,
ich weiß wie und kann mit folgendem Code Desktopverknüpfungen erzeugen.


Sub subDateiAufDesktop() 
Dim wsh As Object
Dim o_Sh As Object
Dim s_DeskTop As String
  
  Set wsh = CreateObject("WScript.Shell")
  s_DeskTop = wsh.SpecialFolders("Desktop")
  Set o_Sh = wsh.CreateShortcut(s_DeskTop & _
    "\" & ThisWorkbook.Name & ".lnk")
  With o_Sh
    .Targetpath = ThisWorkbook.FullName
    .Save
  End With
  Set wsh = Nothing
  
End Sub


Meine Fragen: 1. Wie kann ich so eine Verknüpfung wieder vom Desktop löschen?
2. kann man die Beschreibung manipulieren, dass nicht der Dateiname aber eine beliebige Beschreibung auf dem Desktop erscheint, in den Eigenschaften aber die Datei adressiert wird?

Danke im voraus und schönen Sonntag noch.

Wolfgang
Bild


Betrifft: AW: Desktopverknüpfung löschen / ändern
von: Ramses
Geschrieben am: 16.11.2003 12:49:53

Hallo

Ich bezweifle dass du den Code selbst geschrieben hast und dass du weisst wie man den Link anlegen kann.

Du solltest ehrlich sein ;-)

Set o_Sh = wsh.CreateShortcut(s_DeskTop & _
"\" & "Dein beliebiger Name" & ".lnk")

Gruss Rainer


Bild


Betrifft: AW: Desktopverknüpfung löschen / ändern
von: wolfgang
Geschrieben am: 16.11.2003 12:59:45

Hallo Rainer,
danke für die schnelle Antwort. Code habe ich aus dem Kompendium Excel VBA Programmiereung (Bernd Held).
"Beschreibung" auf dem Desktop und Verknüpfung zur eigentlichen Datei sind aus meiner Sicht 2 Paar Schuhe. Das mit dem "Dein beliebiger Name" habe ich probiert. geht aber nicht :-(
Gruß Wolfgang


Bild


Betrifft: AW: Desktopverknüpfung löschen / ändern
von: Ramses
Geschrieben am: 16.11.2003 13:04:38

Hallo

Der code ist getestet und funktioniert


Sub Create_Link_On_Desktop()
Dim wsh As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wsh = CreateObject("WScript.Shell")
s_DeskTop = wsh.SpecialFolders("Desktop")
Set o_Sh = wsh.CreateShortcut(s_DeskTop & _
    "\" & "Dein beliebiger Name" & ".lnk")
With o_Sh
    .Targetpath = ThisWorkbook.FullName
    .Save
End With
Set wsh = Nothing
End Sub




Sub Delete_Link_On_Desktop()
Dim wsh As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wsh = CreateObject("WScript.Shell")
s_DeskTop = wsh.SpecialFolders("Desktop")
Kill s_DeskTop & "\Dein beliebiger Name.lnk"
Set wsh = Nothing
End Sub


Es sehe keinen Grund warum es bei dir nicht tun sollte

Gruss Rainer


Bild


Betrifft: AW: Desktopverknüpfung löschen / ändern
von: wolfgang
Geschrieben am: 16.11.2003 13:17:45

Ja, war mein (Tipp)-Fehler, jetzt geht's.
Danke für die Löschroutine
und noch schönen Sonntag... :-)
Gruß Wolfgang


Bild


Betrifft: Merci für's Fedback :-) o.T.
von: Ramses
Geschrieben am: 16.11.2003 13:32:59

...


Bild

Beiträge aus den Excel-Beispielen zum Thema " Code zusammenfassen u. ändern"