Verknüpfung anlegen mit „Ausführen IN“!

  • VB.NET
  • .NET (FX) 1.0–2.0

    Verknüpfung anlegen mit „Ausführen IN“!

    Moin! :)
    Ich möchte eine Verknüpfung im AutoStart anlegen.
    Den Code habe ich bereits gefunden!
    Aber leider kann ich damit nur eine Verknüpfung erstellen, ohne „Ausführen in“.
    Habe bereits gegoogelt, ohne Erfolg! ;(
    Weiß Jemand weiter? ?(
    BIG THX

    VB.NET-Quellcode

    1. Public Function CreateShortcut(ByVal sLinkFile As String, _
    2. ByVal sTargetFile As String, _
    3. Optional ByVal sArguments As String = "", _
    4. Optional ByVal sDescription As String = "", _
    5. Optional ByVal sWorkingDir As String = "") As Boolean
    7. 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 sArguments.Length > 0 Then .Arguments = sArguments
    27. If sDescription.Length > 0 Then .Description = sDescription
    28. If sWorkingDir.Length > 0 Then .WorkingDirectory = sWorkingDir
    29. .Path = sTargetFile
    31. ' Verknüpfung speichern
    32. .Save()
    33. End With
    35. ' Objekte zerstören
    36. oLink = Nothing
    37. oFolder = Nothing
    38. oShell = 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(sLinkFile) Then Kill(sLinkFile)
    45. Return False
    46. End Try
    47. End Function



    edit:
    Ich habe den Code gerade nochmals angeschaut, und das Problem ist gelöst!
    Lösung:

    VB.NET-Quellcode

    1. sWorkingDir = Application.StartupPath
    :)
    Bilder

    • ausführenIN.png

      34,2 kB, 370×536, 259 mal angesehen
    Visual Basic.NET 8o
    MS-SQL     8o

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

Facebook
Telefonspende