executer un scripts plus vite

salut,
quand j'execute ce code le programe se bloc et ca prend du temps avant de finir l'execution estce que il ya un moyen pour faire plus vite


merci

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ParcoursRep(oFolder As Scripting.Folder) Dim oFile As File Dim oSousRep As Folder For Each oFile In oFolder.Files If (oFile.DateCreated > Label1.Caption) Then List1.AddItem oFile Next For Each oSousRep In oFolder.SubFolders ParcoursRep oSousRep Next End Sub

---

Ca prend beaucoup plus de temps que si tu fais la même recherche avec l'explorateur Windows (juste pour comparaison sur le meme répertoire) ?

On peut rendre le controle listbox invisible en début de boucle, et le remettre à visible à la fin, ça fera gagner un peu de temps.
Pour éviter de monopoliser toute la puissance de la machine, un doevents de temps en temps va liberer le processeurs pour d'autres taches, mais en contre-partie, le temps sera augmenté.

Exemple:

Code:

---

1 2 3 4 5 6

List1.Visible = False For Each oSousRep In oFolder.SubFolders ParcoursRep oSousRep DoEvents Next List1.Visible = True

---

ca marche mieux avec ton code vDelbeke
merci