Desktopverknüpfung löschen / ändern
16.11.2003 12:45:19
Wolfgang
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
Anzeige