progressbar pour rechercher tous les fichiers

Version imprimable

Bonjour,

je suis entrain des créer un programme pour Rechercher un mots dans tous les fichiers dans le répertoire.
mon problème c'est comment calculer tous les fichiers avec un progressbar dans backgroundWorker1.

mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs)
        ScanDirectory(e.Argument, TextBox2.Text)
        If backgroundWorker1.CancellationPending Then
            e.Cancel = True
            Exit Sub
        End If
        backgroundWorker1.ReportProgress(100)
    End Sub
 
Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
        If Not backgroundWorker1.CancellationPending Then
            ProgressBar1.Value = e.ProgressPercentage
        End If
    End Sub
 
Public Sub ScanDirectory(ByVal dossier As String, ByVal Pattern As String)
        For Each files As String In Directory.GetFiles(dossier)
            If backgroundWorker1.CancellationPending Then Return
            counter += 1
            Label2.Invoke(Sub() Label2.Text = files)
            ProgressBar1.Invoke(Sub() ProgressBar1.Maximum = files.Length)
            Using reader As New StreamReader(files)
                Dim data As String = reader.ReadToEnd
                If data IsNot Nothing AndAlso data.Contains(Pattern) Then FileFound.Add(files)
            End Using
            backgroundWorker1.ReportProgress(counter / files.Length * 100)
        Next
        For Each filename As String In Directory.GetDirectories(dossier)
            counter = 0
            ScanDirectory(filename, searchPattern)
        Next
    End Sub

pouvez-vous me dire comment puis je faire pour calculer la recherche d'un mot avec un progressbar? merci d'avance

Bonjour, je viens trouver la solution à mon problème.
mon problème venez du progressbar maxi qui posé problème.
mon code :

Code:

1
2
3
4
5
6
7
8
9
10
Public Sub ScanDirectory(ByVal dossier As String, ByVal Pattern As String)
        Dim files As String() = Directory.GetFiles(dossier, "*.*", SearchOption.AllDirectories)
        For Each fn As String In files
            If backgroundWorker1.CancellationPending Then Return
            counter += 1
            Label2.Invoke(Sub() Label2.Text = fn)
            backgroundWorker1.ReportProgress(counter * 100 / files.Length)
            If File.ReadAllText(fn).Contains(Pattern) Then FileFound.Add(fn) '<= problème quand il y est vide. 
        Next
    End Sub

mon deuxième problème c'est dans filefound = list(of string) si est vide.

à la fin de la recherche du texte dans les fichiers. il m'affiche le résulta si il trouve le texte ou pas.

Code:

1
2
3
4
5
6
For Each resulat As String In FileFound
                If resulat.Count > 0 Then
fichier trouver
else
aucun text à etait trouver dans les fichiers.
end if

comment faire pour avoir les deux résulta avec FileFound avec list(of string) si est vide ou pas? merci d'avance

07/06/2022, 07h17
Miska59

2 pièce(s) jointe(s)
Bonjour, j'ai trouver la solution à mon problème.

voici en image :
Pièce jointe 620379
Pièce jointe 620380

mon problème venez avec le code for earch ...etc
Code:

1 2 3 4 5 6 7 If FilesFound.Any Then For i = 0 To FilesFound.Count - 1 msg(filesfound(i) "à était trouver") next else msg("aucun fichier à était trouver !") end if
cordialement,