Folgenden Code habe ich hier im Forum erhalten ... und ... er funktioniert klasse!
Ist es möglich diesen Code so zu erweitern, dass die Verknüpfung direkt mit einem Symbol dargestellt wird?
Beispielsweise mit dem Schmetterling, den man als OrdnerSymbol verwenden kann:
%SystemRoot%\system32\SHELL32.dll
Händisch lässt sich dies bei Verknüpfungen ja nachholen (Rechtsklick auf die Verknüpfung >Eigenschaften >anderesSymbol).
Somit vermute ich, dass das auch direkt codiert werden kann.
Jemand eine Ahnung wie der nachfolgende Code angepasst werden müsste?
Vielen Dank vorab!
Dietmar aus Aachen
Hier der Code:
Sub DesktopVerknüpfungErstellen()
Dim strDesktop As String
Dim objLink As Object
Dim strFile As String
Dim strPath As String
Dim objWSH As Object
On Error GoTo Fin
strPath = "C:\OrdnerXY\" ' anpassen
strFile = "DateiXY" ' anpassen
If Dir$(strPath & strFile) = "" Then Error 53
Set objWSH = CreateObject("WScript.Shell")
strDesktop = objWSH.SpecialFolders("Desktop")
Set objLink = objWSH.CreateShortcut(strDesktop & "\" & strFile & ".lnk")
With objLink
.Targetpath = strPath & strFile
.Save
End With
MsgBox "Fertig!", vbInformation, "Meldung"
cleanup:
Set objWSH = Nothing
Exit Sub
Fin:
MsgBox "Die Verknüpfung konnte NICHT erstellt werden; Datei nicht vorhanden.", vbCritical, " _
Hinweis"
Resume cleanup
End Sub