Verknüpfung erstellen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Niko Ortner.

    Gib uns mal bitte eine etwas genauere Fehlerbeschreibung als "Funktioniert nicht.", dann können wir auch versuchen, dir zu helfen.

    Da kannst Du wahrscheinlich nicht so viel dafür dass es nicht funktioniert. Sieht für mich nach 'nem alten VB6 Code aus (denn seit wann kann man die Argumentenklammer weglassen?). Darüber hinaus ist das alte Try-Catch-Spielchen wieder da. Das sollte man vermeiden.
    Ich schreibe den Code mal um, dass er bei mir funktioniert.

    VB.NET-Quellcode

    1. Public Sub CreateShortcut(ByVal LinkFileName As String, ByVal TargetFilePath As String, Optional ByVal CommandLineArgs As String = Nothing, Optional ByVal LinkDescription As String = Nothing, Optional ByVal TargetFileWorkingDirectory As String = Nothing)
    3. Dim oShell As New Shell32.Shell
    4. Dim oFolder As Shell32.Folder
    5. Dim oLink As Shell32.ShellLinkObject
    7. ' Ordner und Dateinamen extrahieren
    8. Dim sPath As String = IO.Path.GetDirectoryName(LinkFileName)
    9. Dim sFile As String = IO.Path.GetFileName(LinkFileName)
    11. ' Wichtig! Link-Datei erstellen (0 Bytes)
    12. Dim F As Integer = FreeFile()
    13. FileOpen(F, LinkFileName, OpenMode.Output)
    14. FileClose(F)
    16. oFolder = oShell.NameSpace(sPath)
    17. oLink = DirectCast(oFolder.Items.Item(sFile).GetLink, Shell32.ShellLinkObject)
    19. ' Eigenschaften der Verknüpfung
    20. oLink.Arguments = CommandLineArgs
    21. oLink.Description = LinkDescription
    22. oLink.WorkingDirectory = TargetFileWorkingDirectory
    23. oLink.Path = TargetFilePath
    25. ' Verknüpfung speichern
    26. oLink.Save()
    28. ' Objekte zerstören
    29. oLink = Nothing
    30. oFolder = Nothing
    31. oShell = Nothing
    33. End Sub
    35. Private Sub Initialize() Handles MyBase.Load
    36. CreateShortcut("C:\Users\Administrator\Desktop\Test.lnk", "C:\Brain.exe", "-selfdestruction", "Kill Brain.exe", "C:\")
    37. End Sub


    Short wurde zu Integer geändert, und das OptionStrict Off - Konstrukt "oLink = oFolder.Items.Item(sFile).GetLink" wurde zu "oLink = DirectCast(oFolder.Items.Item(sFile).GetLink, Shell32.ShellLinkObject)" geändert.
    Weiters wurden die Argumentenamen der Methode verändert, weil's einsichtiger ist als sLinkFile.
    Das Ganze ist nebenbei keine Funktion mehr sondern eine Methode. Wenn man die Argumente richtig angibt funktioniert es einwandfrei.
    Und die Try Catch Sache wurde auch entfernt.

    Sonst noch ein paar kleine Veränderungen.

    Hab's getestet und funktioniert wunderbar.

    Edit:
    Dein Code wäre wirklich interessant.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils