Salut à tous
J'ai le code d'une fonction pour rechercher des fichiers mais je ne le comprend pas, si quelqu'un pouvait m'expliquer le code j'en serai content

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Function lfctFolderExists(aFolder As String) As Boolean
 
Dim li_Index As Integer
 
'Parcourt les éléments de la liste
 
For li_Index = 0 To ListBoxResult.ListCount - 1
    'Si un des éléments porte le nom passé en paramètre, on sort en indiquant que l'élément est déjà présent
 
If ListBoxResult.List(li_Index) = aFolder Then
        lfctFolderExists = True
        Exit Function
    End If
Next li_Index
End Function
ce que je voudrais savoir, c'est à quoi sert les codes

Code : Sélectionner tout - Visualiser dans une fenêtre à part
For li_Index = 0 To ListBoxResult.ListCount - 1
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If ListBoxResult.List(li_Index) = aFolder Then
        lfctFolderExists = True
        Exit Function
    End If
Next li_Index
Voila je vous remercie tous et à très bientôt