ComboBox - Except FileType

Guten Morgen

Ich komme leider nicht weiter, obwohl es wieder nur mal ne Kleinigkeit ist.
Ich entwickle etwas in VB.NET.
Eine Combo-Box ließt aus einem Ordner alle Files aus.
Jetzt will ich aber dass die Box alles ausließt, außer z.b. "*.txt"!
Kann mir jemand weiterhelfen ?

Dim dir = txtConfigurationFolder.Text
For Each file As String In System.IO.Directory.GetFiles(dir)
cmbDeleteGroup.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file))
cmbAddComputer.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file))
Next

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 271443

Url: https://administrator.de/contentid/271443

Ausgedruckt am: 24.11.2024 um 02:11 Uhr

3 Kommentare

Neuester Kommentar

Hallo joehuaba,
da gibt es einige Möglichkeiten ... hier zwei davon mit Linq-Expressions:

For Each file As String In System.IO.Directory.GetFiles(dir).Where(Function(s) System.IO.Path.GetExtension(s).toLower() <> ".txt")  
     cmbDeleteGroup.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file))
     cmbAddComputer.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file)) 
Next

Die Zuweisung zu einer ComboBox geht aber auch ohne Schleife und damit schneller.

cmbDeleteGroup.Items.AddRange(System.IO.Directory.GetFiles(dir).Where(Function(s) System.IO.Path.GetExtension(s).toLower() <> ".txt").Select(Function(s) System.IO.Path.GetFileNameWithoutExtension(s)).ToArray())  

Grüße Uwe