Verknüpfung erstellen mit Strict = ON

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Veronesi.

    Verknüpfung erstellen mit Strict = ON

    Hallo Zusammen

    Ich möchte gerne automatisch Verknüpfungen erstellen.
    Dazu habe ich verschiedene Codes gefunden.
    Ich verwende den folgenden, für mich angepassten Code:

    VB.NET-Quellcode

    1. Function CreateShortCut(ByVal ShortCutTarget As String, ByVal ShortcutPathAndName As String, _
    2. Optional ByVal sArguments As String = "", Optional ByVal ShortcutKey As String = "", _
    3. Optional ByVal ShortCutDescription As String = "", Optional ByVal IconLocation As String = "") As Boolean
    4. ' CreateShortCut("http://www.google.ch", "C:\temp\test.lnk", "/Test", "CTRL+SHIFT+G", "Google", "Explorer.exe, 0")
    6. Try
    7. ' Das Shell-Objekt des Windows Script Hosts erstellen.
    8. Dim WSHShell As Object = CreateObject("WScript.Shell")
    9. Dim Shortcut As Object = WSHShell.CreateShortcut(ShortcutPathAndName)
    11. If Not System.IO.Directory.Exists(System.IO.Path.GetDirectoryName(ShortcutPathAndName)) Then
    12. System.IO.Directory.CreateDirectory(System.IO.Path.GetDirectoryName(ShortcutPathAndName))
    13. End If
    15. Shortcut.TargetPath = ShortCutTarget
    16. Shortcut.WindowStyle = 1
    17. Shortcut.Arguments = sArguments
    18. Shortcut.Hotkey = ShortcutKey
    19. Shortcut.Description = ShortCutDescription
    20. Shortcut.WorkingDirectory = System.IO.Path.GetDirectoryName(ShortcutPathAndName)
    21. If IconLocation <> "" Then Shortcut.IconLocation = IconLocation
    23. Shortcut.Save()
    24. Return True
    25. Catch ex As Exception
    26. MessageBox.Show(ex.Message & vbLf & System.Reflection.MethodBase.GetCurrentMethod().ToString, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    27. Return False
    28. End Try
    29. End Function

    Das funktioniert auch einwandfrei.
    Aber wenn man die Option Strict auf ON schaltet, kommt die Meldung, dass "Spätes binden" nicht zulässig sei.

    Was das ungefähr bedeutet, habe ich herausgefunden. Aber wie kann ich diesen "Fehler" hier beheben?
    Ich würde gerne mit der Option Strict ON arbeiten.

    Veronesi

    Gugge mal hier: [VB.NET] Diverse Probleme nach nachträglicher Umstellung der Option Strict auf On
    -> Late Binding lässt sich bei manchen Vorhaben einfach nicht umgehen -> wie ErfinderDesRades ein "Schmuddelmodul" machen :P

    VB.NET-Quellcode

    1. Imports IWshRuntimeLibrary
    3. Public Class Form1
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Dim shell As New IWshShell_Class
    6. Dim desktop As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    7. Dim shortCut As IWshShortcut = DirectCast(shell.CreateShortcut(IO.Path.Combine(desktop, "test.lnk")), IWshShortcut)
    9. shortCut.TargetPath = "c:\test.exe"
    10. shortCut.Save()
    11. End Sub
    12. End Class


    Alles OPTION STRICT ON konform. Du musst eine Referenz auf "Windows Script Host Object Model" hinzufügen, findest Du im Reiter COM.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o