Dim oFiles As IO.FileInfo() = oDir.GetFiles("*.txt")
 
Dim newFiles As IO.FileInfo() = (From f In oFiles _
    Where f.FullName.ToLower.EndsWith(".txt", _
    StringComparison.CurrentCultureIgnoreCase) _
    Select f).ToArray

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control