Bonjour,

Je voudrais lister les fichiers d'un repertoire et afficher les chemin du fichier en cours dans un label pendant la recherche. Pour cela j'ai pensé à utiliser un BackGroundWorker. Le problème c'est que le BackGroundWorker ne peut pas renvoyer directement le chemin a mon thread principal pour qu'il soit affiché dans le label puisque la fonction ne sera pas terminée... Je ne vois donc pas comment faire pour envoyer le résultat au thread de mon form avant la fin.

Voici le code que j'utilise pour le listage:
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
16
17
18
19
20
21
22
Public Function GetAllFiles(ByVal path As String) As String
        Dim sFiles As String()
        Dim sbBuffer As New StringBuilder
 
        Try
            sFiles = Directory.GetFiles(path)
            For Each fichier In sFiles
                sbBuffer.AppendLine(fichier)
                nbrFileFn2 += 1
            Next
 
            Dim sDir As String()
            sDir = Directory.GetDirectories(path)
            For Each dossier In sDir
                sbBuffer.AppendLine(GetAllFiles(dossier))
            Next
        Catch ex As Exception
            sbBuffer.AppendLine(ex.Message)
        End Try
 
        Return sbBuffer.ToString
    End Function
Est ce que quelqu'un a une solution?

Merci d'avance