Verknüpfung erstellen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von FireEmerald.

    Verknüpfung erstellen

    Hallo Zusammen,

    es gibt hier im Forum einige, meist ältere Beiträge, zu dem Thema wie erstellt man Verknüpfungen / Links.

    Was mich jedoch etwas stört ist wie diese Codes aufgebaut sind. Das Beispiel nutzt als Ansatz Microsoft Shell Controls And Automation (Imports Shell32).

    Beispielcode:

    VB.NET-Quellcode

    1. Public Function CreateShortcut(ByVal _LinkFullPath As String, _
    2. ByVal _LinkFullTargetPath As String, _
    3. Optional ByVal _Description As String = "", _
    4. Optional ByVal _Arguments As String = "", _
    5. Optional ByVal _WorkingDir As String = "") As Boolean
    7. Try
    8. Dim _Shell As New Shell
    9. Dim _Folder As Folder
    10. Dim _LinkObject As ShellLinkObject
    12. ' Ordner und Dateinamen extrahieren
    13. Dim _LinkFolderPath As String = _LinkFullPath.Substring(0, _LinkFullPath.LastIndexOf("\"))
    14. Dim _LinkFilename As String = _LinkFullPath.Substring(_LinkFullPath.LastIndexOf("\") + 1)
    16. ' Wichtig! Link-Datei erstellen (0 Bytes)
    17. Dim F As Short = FreeFile()
    18. FileOpen(F, _LinkFullPath, OpenMode.Output)
    19. FileClose(F)
    21. _Folder = _Shell.NameSpace(_LinkFolderPath)
    22. oLink = oFolder.Items.Item(sFile).GetLink
    24. ' Eigenschaften der Verknüpfung
    25. With _LinkObject
    26. If _Arguments.Length > 0 Then .Arguments = _Arguments
    27. If _Description.Length > 0 Then .Description = _Description
    28. If _WorkingDir.Length > 0 Then .WorkingDirectory = _WorkingDir
    29. .Path = _LinkFullTargetPath
    31. ' Verknüpfung speichern
    32. .Save()
    33. End With
    35. ' Objekte zerstören
    36. _LinkObject = Nothing
    37. _Folder = Nothing
    38. _Shell = Nothing
    40. Return True
    42. Catch ex As Exception
    43. ' Fehler! ggf. Link-Datei löschen, falls bereit erstellt
    44. If System.IO.File.Exists(_LinkFullPath) Then Kill(_LinkFullPath)
    45. Return False
    46. End Try
    47. End Function
    Source: vbarchiv.net/tipps/details.php?id=1601

    Gibt's denn keine Möglichkeit mit den Boardmitteln von .NET einen Link zu erstellen?
    Wie habt Ihr in euren Anwendungen etwas derartiges realisiert?

    Gruß, FireEmerald

    Es gab schonmal mehr Antworten... seis drum.
    Hab mich etwas umgeschaut und für folgende Variante entschieden:

    Anwendungsbeispiel:

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Imports System.Environment
    6. Private Sub Main()
    7. Dim _DesktopDirectory As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
    9. CreateShortcut(_DesktopDirectory & "\app.lnk", "C:\folder\app.exe", "Application in C", "Arg1 Arg2", "app.exe, 1", "CTRL+SHIFT+F", WindowStyle.Normal)
    10. End Sub


    VB.NET-Quellcode

    1. '// [ALT+F7] / Einstellungen -> Verweise -> Hinzufügen -> COM -> Windows Script Host Object Model
    2. '// [ALT+F7] / Settings -> References -> Add -> COM -> Windows Script Host Object Model
    4. Option Strict On
    5. Option Explicit On
    7. Imports IWshRuntimeLibrary
    9. ''' <summary>
    10. ''' Assigns a window style to a shortcut, or identifies the type of window style used by a shortcut.
    11. ''' </summary>
    12. ''' <remarks>
    13. ''' WindowStyle Property: http://msdn.microsoft.com/en-us/library/w88k7fw2(v=vs.84).aspx
    14. ''' </remarks>
    15. Private Enum WindowStyle As Integer
    16. Normal = 1
    17. Maximized = 3
    18. Minimized = 7
    19. End Enum
    21. ''' <summary>
    22. ''' Creates a new shortcut with the given arguments. If the shortcut already exist, it will be updated with the new arguments.
    23. ''' </summary>
    24. ''' <param name="_ShortcutPath">The destination path where the shortcut will be created, including the filename with extension (.lnk).</param>
    25. ''' <param name="_TargetPath">The target path of the file where the shortcut will point, including the filename with extension.</param>
    26. ''' <param name="_Description">Description of the shortcut. Will be shown on mouse over or in the shortcut settings.</param>
    27. ''' <param name="_Arguments">The Arguments property contains the WshArguments object (a collection of arguments).</param>
    28. ''' <param name="_IconLocation">Consists of the file name and an index associated with the icon. (app.exe, 0)</param>
    29. ''' <remarks>
    30. ''' Source: http://msdn.microsoft.com/en-us/library/fywyxt64(VS.85,ide).aspx
    31. ''' WshShortcut Object: http://msdn.microsoft.com/en-us/library/xk6kst2k(v=vs.84).aspx
    32. ''' </remarks>
    33. Private Sub CreateShortcut(ByVal _ShortcutPath As String, _
    34. ByVal _TargetPath As String, _
    35. Optional _Description As String = "", _
    36. Optional _Arguments As String = "", _
    37. Optional _IconLocation As String = ",0", _
    38. Optional _Hotkey As String = "", _
    39. Optional _WindowStyle As WindowStyle = WindowStyle.Normal)
    41. Dim _Shell As New WshShell
    42. Dim _Shortcut As IWshShortcut = DirectCast(_Shell.CreateShortcut(_ShortcutPath), IWshShortcut)
    44. With _Shortcut
    45. .Arguments = _Arguments
    46. .Description = _Description
    47. .Hotkey = _Hotkey
    48. .IconLocation = _IconLocation
    49. .TargetPath = _TargetPath
    50. .WindowStyle = _WindowStyle
    51. '.WorkingDirectory = "C:\folder"
    53. .Save()
    54. End With
    55. End Sub


    Gruß, FireEmerald

Facebook
Telefonspende