Verknüpfung auf einen Ordner in anderem Ordner erstellen

Frage: Auf einen Ordner soll eine Verknüpfung erstellt werden - Diese aber in einem anderen Ordner abgelegt werden. Geht das?

Option Explicit
Sub Main()
    Dim strTarget As String
    Dim objShell As Object
    Dim strPath As String
    Dim strName As String
    Dim objLink As Object
    Dim objFSO As Object
    On Error GoTo Fin
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("WScript.Shell")
    strPath = "C:\Temp\" ' Dieser Ordner wird verknüpft
    strName = "Temp" ' Das ist der Name der Verknüpfung
    strTarget = "E:\Excel\" ' Das ist das Ziel der Verknüpfung
    Set objLink = objShell.CreateShortcut _
        (strTarget & strName & ".lnk")
    objLink.TargetPath = strPath
    objLink.WorkingDirectory = strPath
    objLink.Save
Fin:
    Set objLink = Nothing
    Set objShell = Nothing
    Set objFSO = Nothing
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...