Desktopverknüpfung - On Error Handling
Dietmar
Habe einen Code mit dem ich für eine bestimmte Datei auf dem Desktop eine Verknüpfung erstellen kann. Soweit so gut.
Irgendwie funktioniert meine Msgbox-Fehlermeldung jedoch nicht. Auch dann, wenn die Verknüpfung angelegt wurde, erfolgt die Fehlermeldung. Diese soll natürlich nur erscheinen, wenn die Verknüpfung nicht erstellt werden konnte, weil die Datei z.B. im vorgesehenen Ordner nicht vorhanden ist.
Sub VerknüpfungTest()
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:\Testordner\" ' anpassen
strFile = "Testverknüpfung.xls" ' anpassen
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 "Kaum geklickt ... und schon fertig :-)"
Fin:
Set objWSH = Nothing
MsgBox "ACHTUNG Datei fehlt!" _
End Sub
Kann mir jemand auf die Sprünge helfen?
Danke.
Dietmar aus Aachen