' 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 '