Dim oExtender As String() = {"*.txt", "*.xls", "*.xlsx"}
        If CheckBox_csv.Checked = True Then
            oExtender.Append("*.csv")
        End If
 
        For Each oFile As String In My.Computer.FileSystem.GetFiles( _
          oVerzeichnis, FileIO.SearchOption.SearchAllSubDirectories, oExtender)

Hänk

(Wer früh aufsteht hat mehr vom Tag)