Private Sub Dateien_selektieren(ByVal Extension As String)
Listbox.Clear
Select Case Extension
Case "Alle"
On Error Resume Next
  For Each oFile In oFolder.Files
    Listbox.AddItem oFile.Name
  Next
Case "mp3"
  On Error Resume Next
  For Each oFile In oFolder.Files
    If LCase$(oFSO.GetExtensionName(oFile)) = Extension Then
      Listbox.AddItem oFile.Name
    End If
  Next
Case "mpeg,mpg,avi,dat"
  Dim Ergebnis() As String
  On Error Resume Next
  Ergebnis() = Split(Extension, ",", , vbTextCompare)
 
      For Each oFile In oFolder.Files
        If LCase$(oFSO.GetExtensionName(oFile)) = Ergebnis(0) Then
          Listbox.AddItem oFile.Name
        End If
      Next
 
      For Each oFile In oFolder.Files
        If LCase$(oFSO.GetExtensionName(oFile)) = Ergebnis(1) Then
          Listbox.AddItem oFile.Name
        End If
      Next
 
      For Each oFile In oFolder.Files
        If LCase$(oFSO.GetExtensionName(oFile)) = Ergebnis(2) Then
          Listbox.AddItem oFile.Name
        End If
      Next
 
      For Each oFile In oFolder.Files
        If LCase$(oFSO.GetExtensionName(oFile)) = Ergebnis(3) Then
          Listbox.AddItem oFile.Name
        End If
      Next
 
End Select
End Sub