folder dialog, naam selecteren

[dejobse]

Hallo,
Ik heb een probleempje met een programma:
Hieronder staat de code van de folder dialog, ik moet nog 2 dingen doen:

dus je hebt vb. C:\Users\dejobse\Music\liedje.mp3
dan moet dit worden liedje in de listbox, ik heb al heel wat zitten zoeken maar ik vind niks bruikbaar....

en dan, moet hij ook nog alle mp3/ wav / wmv eruit halen, ik dacht dit met .filter te doen maar in een folder dialog werkt dit duidelijk niet.

    Private Sub DisplayFiles(ByVal DirPath As String)
        Dim FileList As String() = Directory.GetFiles(DirPath)
        Dim DirList As String() = Directory.GetDirectories(DirPath)
        Dim FileName As String
        For Each FileName In FileList

            ReDim Preserve strsettings(7, intrang)
            strsettings(0, intrang) = FileName
            'liedje
            strsettings(1, intrang) = FileName

            'gegevens bollen in array zetten
            strsettings(2, intrang) = tbc1b1.Value
            strsettings(3, intrang) = tbc2b1.Value
            strsettings(4, intrang) = tbc3b1.Value

            strsettings(5, intrang) = tbc1b2.Value
            strsettings(6, intrang) = tbc2b2.Value
            strsettings(7, intrang) = tbc3b2.Value

            intrang += 1
        Next
        Dim DirectoryName As String
        For Each DirectoryName In DirList
            DisplayFiles(DirectoryName)
        Next
        ltbsettings.Items.Clear()
        For i = 0 To intrang - 1
            ltbsettings.Items.Add(strsettings(0, i))
        Next
    End Sub


    Private Sub btnfolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfolder.Click
        Dim Root As String
        If FBD.ShowDialog() = DialogResult.OK Then
            Root = FBD.SelectedPath
        Else
            Exit Sub
        End If
        DisplayFiles(Root)
    End Sub

Alvast bedankt!

 

[dejobse]

Niemand? sorry dat ik dit al zo snel zeg maar het is redelijk dringend
ik heb met .replace geprobeerd maar hier werken geen asterisken voor...

kan iemand me hierin vrij snel helpen 8)

alvast bedankt

 

[CaptainBri]

Misschien kan je het proberen met ''EndsWith'', die kijkt of een string met iets bepaalds eindigt.

Bijvoorbeeld:
For Each FileName In FileList
If FileName.EndsWith(".mp3") Then
ListBox1.Items.Add(FileName)
End If
Next

 

[dejobse]

ah ends with bestaat ook, goed om te weten ^^ ja het was tegen vrijdag dus, mijn taak is al ingestuurd maar ik had het gedaan met contains gedaan ^^ maar toch nog bedankt!

mvg leslie