Dim fiArr As FileInfo() = di.GetFiles.[COLOR=#66cc66]Where[/COLOR][COLOR=#66cc66]([/COLOR][COLOR=#b1b100]Function[/COLOR][COLOR=#66cc66]([/COLOR]fi[COLOR=#66cc66])[/COLOR] fi.[COLOR=#66cc66]Extension[/COLOR] = [COLOR=#ff0000]".avi"[/COLOR] OrElse fi.[COLOR=#66cc66]Extension[/COLOR] = [COLOR=#ff0000]".mpg"[/COLOR] OrElse fi.[COLOR=#66cc66]Extension[/COLOR] = [COLOR=#ff0000]".mkv"[/COLOR] OrElse fi.[COLOR=#66cc66]Extension[/COLOR] = [COLOR=#ff0000]".mp4"[/COLOR][COLOR=#66cc66])[/COLOR].[COLOR=#66cc66]ToArray