Dim filters As New List(Of String)() From { _ > ".CER", _ > ".TXT", _ > ".ZIP" _ >} >Dim exclusions As New List(Of String)() From { _ > "PG.010.cer", _ > "canon1120.zip" _ >} >Dim files As New List(Of FileInfo)() >Dim di As New DirectoryInfo("C:\") >' Get inclusions: >For Each s As String In filters > files.AddRange(di.GetFiles().Where(Function(x) x.Extension.ToUpper() = s).ToList()) >Next >'OR: >files = di.GetFiles().ToList().FindAll(Function(fi As FileInfo) filters.Contains(fi.Extension.ToUpper())) >' Remove exclusions: >files = files.FindAll(Function(fi As FileInfo) Not exclusions.Contains(fi.Name))Converted from C# and untested.....