>Played with a couple of ideas not using the inbuilt filtering. Maybe overkill but potentially more flexible:

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

It is an interesting approach. Thanks