Obtener archivos con determinada extensión

 Dim dir As String = Directory.GetCurrentDirectory()
 Dim files() As String = Directory.GetFiles(dir, "*.*")

.Where(Function(s) s.EndsWith(".csv") OrElse s.EndsWith(".xml")).ToArray()