VB.net Dateien in Liste zihen

[N302OO7]

hey Leutz hab ein großes problem und zwar

Ich Habe eine ListBox in meiner Form1 und ich will meine Dateinen mit der maus reinzihen & auflisten können
Die Frage ist nur wie ich bekomme immer nur Fehler

Oder weis einer wie ich daten mit einer .exe endung in meine list per button klick auflisten kann

 

[engelmarkus]

Du erstellst eine ListBox, setzt "AllowDrop" auf True, und dann kommt folgender Code:

    Private Sub ListBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        For Each filename In DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
            If filename.EndsWith(".exe") Then ListBox1.Items.Add(filename)
        Next
    End Sub

    Private Sub ListBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub