Verknüpfung zu einem Ordner erstellen
27.07.2005 10:36:01
mr_damoon
Ich habe eine Frage:
Ich erstelle mit folgendem Code einen Ordner (UOrdner)im Verzeichnis (Verzeichnis) und darin möchte ich eine Verknüpfung zu einem anderen Ordner (Ziel) erstellen lassen.
Ziel liegt als String "C:\Temp" vor.
Der UOrdner wird erstellt, aber dann komme ich nicht weiter. (Fehlermeldung: "Verknüpfung wird nicht erstellt") Kann jemand mal darüberschauen oder mir einen besseren Weg zeigen?
DANKE
Andreas
Private Sub CommandButton5_Click()
Dim Verzeichnis As String
Dim UOrdner As String
Dim Ziel As String
Dim wbA As Workbook
Dim wSh As Object
Dim oSh As Object
Dim sDesktop As String
Verzeichnis = Range("L19")
UOrdner = Range("R8")
Ziel = Range("P60")
'Anlegen
If Dir(Verzeichnis, vbDirectory) <> "" Then
ChDir Verzeichnis
MkDir Verzeichnis & "\" & UOrdner
MsgBox "Projektordner mit dem Namen " & Chr(13) & UOrdner & Chr(13) & "wurde angelegt.", vbInformation
ChDir Verzeichnis & "\" & UOrdner
'Verknüpfung erstellen
Set wbA = ActiveWorkbook
Set wSh = CreateObject("WScript.Shell")
'sDesktop = wSh.SpecialFolders("Ziel")
Set oSh = wSh.CreateShortcut(Ziel & ".lnk")
With oSh
.Targetpath = Ziel
.Save
End With
Set wSh = Nothing
End Sub