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)

If CheckBox_csv.Checked = True Then
    oExtender = oExtender.Append("*.csv").ToArray
End If

        Dim oExtender As String() = ... ?
 
        If CheckBox_csv.Checked = True Then
            oExtender = oExtender.Append("*.csv").ToArray
        End If

Hänk

(Wer früh aufsteht hat mehr vom Tag)

Dim overzeichnis As String = "....."
 
Dim oextender As New List(Of String)
 
oextender.AddRange({"*.txt", "*.xls", "*.xlsx"})
oextender.Add("*.csv")
 
For Each oFile As String In My.Computer.FileSystem.GetFiles(
overzeichnis, FileIO.SearchOption.SearchAllSubDirectories, oextender.ToArray)
 
   'Stop
Next

Dim ox() As String = {}  'Array ohne Elemente
ox = ox.Append("*.txt").ToArray

Hänk

(Wer früh aufsteht hat mehr vom Tag)