[VB2005]Code lent à l'exécution

Bonjour,
J'ai une petite appli en VB qui se charge de lire un répertoire et ses sous-répertoires mais ce code est très lent quand il y a beaucoup de fichiers (il devient de plus en plus lent au fur et a meseru de la lecture des fichiers).

Pour ce code , je me suis inspiré de celui dans la FAQ .NET

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim i As Integer i = 1 Traitement.LblMessage.Text = "Lecture des trains d'origine" Traitement.Show() Traitement.Refresh() For Each file As String In Directory.GetFiles(CheminMSTS + "\Trains", "*.*", System.IO.SearchOption.AllDirectories) ReDim Preserve FichiersDepart(i) FichiersDepart(i - 1) = file.ToLower i = i + 1 DoEvents() Next

---

Ce code n'a pas l'air très performant :(
Y'a-t-il une meilleure méthode (je débute totalement en .Net) ??

Rien de bien etonnant a ce que ton code rame. Ton tableau est alloue et deplace en memoire a chaque tour de boucle (rien a voir avec le .net sois-dit en passant, c'est un probleme d'algo).
Une optimisation simple pourrait etre d'allouer par bloc de 1000 comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim i As Integer Dim nbAllocations as Integer nbAllocations = 1000 i = 1 Traitement.LblMessage.Text = "Lecture des trains d'origine" Traitement.Show() Traitement.Refresh() Dim Preserve FichiersDepart(nbAllocations) For Each file As String In Directory.GetFiles(CheminMSTS + "\Trains", "*.*", System.IO.SearchOption.AllDirectories) if ( i > nbAllocations ) then nbAllocations = nbAllocations + 1000 ReDim Preserve FichiersDepart(nbAllocations) end if FichiersDepart(i - 1) = file.ToLower i = i + 1 DoEvents() Next ReDim Preserve FichiersDepart(i-1)

---

A tester et debugger, je n'ai pas de possibilite de faire du vb sur ce poste.
++
Fred.

Merci, je vais tester ca