VBA Ordnerverlinkung
02.11.2020 13:44:45
Becker
ich habe folgendes Problem:
Ich möchte mittels VBA eine Projektordnerstruktur erstellen lassen und unter anderem sollen in den Projektordnern Verlinkungen zu den Dokumentationsordnern erstellt werden (beide werdern von Excel neu angelegt).
Funktioniert auch alles soweit so gut, das Problem ist nur, dass die Verknüpfung vom Zieltyp "Datei" erstellt wird statt vom Zieltyp Ordner.
Das Problem wurde wohl schon einmal behandelt, aber mein Code der eigentlich 1 zu 1 Kopiert und an meine Struktur angepasst wurde will einfach nicht funktionieren.
Hier mein Code (Die Variable Ord enthält den zu verlinkenden Pfad):
Dim WshShell As Object
Dim MyShortcut As Object
Set WshShell = CreateObject("WScript.Shell")
Set MyShortcut = WshShell.CreateShortcut(ThisWorkbook.Path & "\Projektordner\Dokumentation.lnk")
With MyShortcut
.Targetpath = Ord & "\"
.iconlocation = "%windir%\explorer.exe, 1"
.Save
End With
Set MyShortcut = Nothing
Set WshShell = Nothing
Danke schon mal im Vorraus
LG Tobias