' Ich habe es jetzt so gemacht...
Dim Filter$ = "*.htm"
'Dim Filter$ = "*.htm?"
'Dim Filter$ = "*.htm*"
'
Dim DErw$ = System.IO.Path.GetExtension(Filter$)
Dim DErwLa% = DErw.Length
'
Dim FI() As FileInfo = New IO.DirectoryInfo("G:\AVR").GetFiles(Filter$, SearchOption.TopDirectoryOnly)
Select Case (DErw.Chars(DErw.Length - 1))
Case "*"
For Each File As FileInfo In FI
ListBox1.Items.Add (file.Name)
Next file
'
Case "?"
For Each file As FileInfo In FI
If file.Extension.Length <= DErwLa% Then ListBox1.Items.Add (file.Name)
Next file
'
Case Else
For Each file As FileInfo In FI
If file.Extension.Length = DErwLa% Then ListBox1.Items.Add (file.Name)
Next file
'
End Select
'