Verknüpfung erstellen scheitert an Shell32

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Alex2000.

    Verknüpfung erstellen scheitert an Shell32

    Hallo, ich habe ein Problem, und ich weiß echt nicht mehr weiter...


    In einer Funktion (zum erstellen eines Linkes steht folgendes:)

    VB.NET-Quellcode

    1. Dim oShell As New Shell32.Shell
    2. Dim oFolder As Shell32.Folder
    3. Dim oLink As Shell32.ShellLinkObject


    Doch jeweils der Shell32 Teil ist 'nicht definiert'. - also falsch ;(


    Hier die gesamte Funktion:

    VB.NET-Quellcode

    1. Public Function CreateShortcut(ByVal sLinkFile As String, _
    2. ByVal sTargetFile As String, _
    3. Optional ByVal sDescription As String = "", _
    4. Optional ByVal sWorkingDir As String = "") As Boolean
    6. Try
    8. Dim oShell As New Shell32.Shell
    9. Dim oFolder As Shell32.Folder
    10. Dim oLink As Shell32.ShellLinkObject
    12. ' Ordner und Dateinamen extrahieren
    13. Dim sPath As String = sLinkFile.Substring(0, sLinkFile.LastIndexOf("\"))
    14. Dim sFile As String = sLinkFile.Substring(sLinkFile.LastIndexOf("\") + 1)
    16. ' Wichtig! Link-Datei erstellen (0 Bytes)
    17. Dim F As Short = FreeFile()
    18. FileOpen(F, sLinkFile, OpenMode.Output)
    19. FileClose(F)
    21. oFolder = oShell.NameSpace(sPath)
    22. oLink = oFolder.Items.Item(sFile).GetLink
    24. ' Eigenschaften der Verknüpfung
    25. With oLink
    26. If sDescription.Length > 0 Then .Description = sDescription
    27. If sWorkingDir.Length > 0 Then .WorkingDirectory = sWorkingDir
    28. .Path = sTargetFile
    30. ' Verknüpfung speichern
    31. .Save()
    32. End With
    34. ' Objekte zerstören
    35. oLink = Nothing
    36. oFolder = Nothing
    37. oShell = Nothing
    39. Return True
    41. Catch ex As Exception
    42. ' Fehler! ggf. Link-Datei löschen, falls bereit erstellt
    43. If System.IO.File.Exists(sLinkFile) Then Kill(sLinkFile)
    44. Return False
    45. End Try
    46. End Function


    LG, Johnny

    :::

    EDIT: Wer eine einfachere Lösung kennt, eine Verknüpfung zu erstellen; bitte posten :D

    EDIT2: Ich habe Vista Ultimate 64-Bit -> Hat das etwas damit zu tun?

    Also so geht das aber deutlich kürzer:

    1. Du brauchst einen Verweis auf "Windows Script Host Object Model" (ist unter COM)

    2. Und dann diesen Code:

    VB.NET-Quellcode

    1. Dim wsh As IWshRuntimeLibrary.IWshShell = New IWshRuntimeLibrary.WshShellClass()
    2. Dim ShortCut As IWshRuntimeLibrary.IWshShortcut = DirectCast(wsh.CreateShortcut("Dateipfad, wo Verknüpfung erstellt werden soll"), IWshRuntimeLibrary.IWshShortcut)
    3. With ShortCut
    4. .WindowStyle = 1
    5. .TargetPath = "Pfad der Datei"
    6. .WorkingDirectory = "Und hier wird die Datei ausgeführt"
    7. .Save()
    8. End With


    Alteran

    mikeb69 schrieb:

    hast du schonmal daran gedacht einen Verweis auf die Shell32.dll zu setzen ?
    Ich habe direkt nach Public Class

    VB.NET-Quellcode

    1. Inherits Shell32.Shell
    2. Inherits Shell32.Folder
    3. Inherits Shell32.ShellLinkObject

    gesetzt.

    Aber auch das wird als falsch markiert.

    ___________

    Danke Alteran, deinen Post habe ich übersehen.

    @ cpu_johnny: bevor du blind irgend welche code copy&pasta machst, zuerst alles richtig lesen da steht alles deutlich und klar:
    vb@archiv
    Fügen Sie Ihrem Projekt als erstes den COM-Verweis Microsoft Shell Controls And Automation hinzu und übernehmen anschließend nachfolgenden Funktionscode in Ihr Projekt:

    QUELLE

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Alex2000“ ()

    @der_Kurt: danke, hab schon gesehen....habe nur dem threadsteller hingewiesen, nicht nur Code copy&paste sonder lesen was auch geschrieben steht !
    Solche Fragen dürften nicht auftauchen, da steht schon für "*****" alles beschrieben, und trotzdem kommen sie mit vorgekauten Infos nicht klar, oder sehen sie nicht !

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Alex2000“ ()

Facebook
Telefonspende