Aidez moi à comprendre la procedure suivante svp

Salut tout le monde,

Voila j'ai recupéré la procedure suivante que j'ai adapté à ma sauce. elle permet de lister tout les fichiers avec l'extension souhaitée dans un repertoire et ses sous repertoires. C'est une procedure recursive.
Pour qu'elle fonctionne, je suis obligé de l'ouvrir dans un nouveau thread, sinon elle ne marche comme il faut. En effet, si je n'ouvre pas de nouveau thead, tout les fichiers ne sont pas trouvés!

Quelq'un peut m'aider à comprendre pourquoi j'ai besoin de faire tourner cette procedure dans un nouveau thread?

Voici le code :


'dans un form :
--------------------------------------------------------------------------
        Dim ThreadSearch As Threading.Thread

        ThreadSearch = New Threading.Thread(AddressOf RunSearch)
        ThreadSearch.Start()
        RunSearch()
----------------------------------------------------------------------------------
    Private Sub RunSearch()

        SearchFile(XG_DriverPath, "*.inf")

    End Sub

-------------------------------------------------------------------------------------
'dans un module :

Public Sub SearchFile(ByVal X_Path As String, X_FileType as String)

'considerons que X_Path est le repertoire racine ou chercher les fichiers
'considerons que X_FileType est le type de fichier recherché (ex : ".inf")
'dès que je touve un fichier, je met son chemin complet dans un tableau XG_TabFiles

        Dim f As Integer

        f = 0

        For Each PathFile As String In IO.Directory.GetFiles(X_Path)
            If InStr(PathFile, X_FileType) Then
                XG_PathFile = PathFile

                XG_TabFiles(XG_TabFiles.Length - 1) = PathFile

                f = f + 1
                ReDim Preserve XG_TabFiles(XG_TabFiles.Length)
            End If
        Next

        For Each PathDirectory As String In IO.Directory.GetDirectories(X_Path)

            SearchFile(PathDirectory, ".inf")

        Next

    End Sub

Merci à vous ! 

Il y a plusieurs "problèmes" dans ton code....
La gestion des tableaux est mauvaise...tu dois surement utiliser explicit = true....supprime tout de suite cela...et déclare tout. C'est surement la cause de tout tes problèmes...le compilateur t'expliquera tout.

Sinon, 

...
  f = f + 1 'Ecrit f += 1 (f ne te sert a rien dans ce code...mais utilise le a la place de "XG_TabFiles.Length - 1"
...

  ...     For Each PathDirectory As String In IO.Directory.GetDirectories(X_Path)

            SearchFile(PathDirectory, ".inf") ''''REM Je mettret plutôt X_FileType  que ".inf"

        Next
...

etc..etc...
A+
White_Mage();