verknüpfung auslesen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Executor.

    verknüpfung auslesen

    hey

    VB.NET-Quellcode

    1. Public Function LeseShellLinkPath(ByVal datei As String) As String
    3. Dim oShell As New Shell32.Shell
    4. Dim oFolder As Shell32.Folder
    5. Dim oLink As Shell32.ShellLinkObject
    7. Dim sPath As String
    8. Dim sFile As String
    10. Dim sLinkFile As String = datei
    12. ' Ordner und Dateiname extrahieren
    13. sPath = Strings.Left(sLinkFile, InStrRev(sLinkFile, "\") - 1)
    14. sFile = Mid$(sLinkFile, InStrRev(sLinkFile, "\") + 1)
    16. oFolder = oShell.NameSpace(sPath)
    17. oLink = oFolder.Items.Item(sFile).GetLink
    19. Return oLink.Path
    21. End Function



    ich hab den cod im Internet gefunden aber der geht leider nit ! wenn ich per Drag-Drop eine Verknüpfung in eine listbox rein zihe :(

    Drag-Drop code

    VB.NET-Quellcode

    1. Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As _
    2. System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
    3. If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    4. e.Effect = DragDropEffects.All
    5. End If
    6. End Sub
    8. Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As _
    9. System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
    10. If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    11. Dim i As Integer
    12. MyFiles = e.Data.GetData(DataFormats.FileDrop)
    13. MsgBox(LeseShellLinkPath(MyFiles(0)))
    14. End If
    15. End Sub


    VB sagt mir das ich nicht die rechte und .... habe. Daraufhin habe ich als Admn VB gestartet und jetzt geht das Drag-Drop nit mehr :cursing:


    ps: hab win 7