Drag and Drop

[bonnowagt]

Ik heb de volgende code voor drag and drop voor alleen files dus geen mappen

If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                Dim MyFiles() As String
                Dim i As Integer
                MyFiles = e.Data.GetData(DataFormats.FileDrop)
                For i = 0 To MyFiles.Length - 1
                    ListBox1.Items.Add(MyFiles(i))
                Next
            End If[CODE] 


Het werkt op zich prima, maar ik wil alleen bijv. mp3 bestanden laden. Dit lukt mij wel bij drag en drop mappen met endswith maar niet met alleen bestanden. Volgens mij is het heel eenvoudig maar ik kom er niet op

 

[bonnowagt]

Even terugkomend op de vraag:

Mijn totale code is:

  Dim files As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
            For Each filename As String In files
                Dim path As String = System.IO.Path.GetFullPath(filename)
                If System.IO.Directory.Exists(path) Then
                    For Each item As String In System.IO.Directory.GetFiles(path)
                        If Not ListBox1.Items.Contains(item) Then If item.EndsWith(".wav") Then ListBox1.Items.Add(item)
                        If Not ListBox1.Items.Contains(item) Then If item.EndsWith(".mp3") Then ListBox1.Items.Add(item)
                        If Not ListBox1.Items.Contains(item) Then If item.EndsWith(".flac") Then ListBox1.Items.Add(item)
                    Next
                Else
                       If Not ListBox1.Items.Contains(path) Then ListBox1.Items.Add(path)
                End If
            Next
           
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                Dim MyFiles() As String
                Dim i As Integer
                MyFiles = e.Data.GetData(DataFormats.FileDrop)
                For i = 0 To MyFiles.Length - 1
                    ListBox1.Items.Add(MyFiles(i))
                Next
            End If

Eerse gedeelte is voor Mappen en het tweede gedeelte voor files misschien kan dit gecombineerd?