Discussion :

[bailamos]

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 :

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

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

[OhMonBato]

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

[Delbeke]

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 :

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

1
2
3
4
5
6
  List1.Visible = False
  For Each oSousRep In oFolder.SubFolders
    ParcoursRep oSousRep
    DoEvents
  Next
  List1.Visible = True

[bailamos]

ca marche mieux avec ton code vDelbeke
merci