Discussion :

[cd090580]

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 VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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) ??

[fred777888999]

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 VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[cd090580]

Merci, je vais tester ca