[Débutant] Calculer le hash de manière récursive

Bonjour à tous,

Je cherche à calculer le hash de plusieurs fichiers, certains contenu dans des sous-répertoires, mais je n'ai vraiment aucune idée de comment rendre cette méthode récursive

Je la liste des fichiers et sous-répertoires comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Try
            Dim dirs As String() = Directory.GetFileSystemEntries("D:\Projets\xxx\", "*.*", SearchOption.AllDirectories)
            Me.ListBox1.Items.Add("Il y a " & dirs.Length & " fichiers")
            Dim dir As String
 
            For Each dir In dirs
                Me.ListBox1.Items.Add(dir)
            Next dir
 
 
        Catch ex As Exception
            MsgBox("The process failed: {0}" & ex.ToString())
        End Try

J'utilise cette fonction pour calculer le hash :

Code:

1
2
3
4
5
6
Using fs As FileStream = File.OpenRead(fileName)
            Dim md5Algorithm As MD5 = MD5.Create()
            Dim hashBytes As Byte() = md5Algorithm.ComputeHash(fs)
            Dim hash As String = BitConverter.ToString(hashBytes).Replace("-", "").ToLower()
            Return hash
        End Using

Merci d'avance ;)