Compare 2 directories in a listview

See more:

VB

ListView

I'm currently working on a small project. I am trying to compare two directories for the folders and the files. For example, if i have a folders named toto in my c:\ and a other one named toto in my e:\ it will compare the files inside. If inside i have toto.txt, toto1.txt, toto2.txt and in the other folders i have toto.txt and toto1.txt, toto232.txt... it will add toto.txt and toto1.txt in my listview! :) but im using the recursive procedures : Recursive Procedures (Visual Basic)[^] and i have some trouble with it! heres is my complete function :

Private Sub comparerfichier(ByVal dir As String, ByVal dir2 As String)

    Try
        Dim directoire1 As New DirectoryInfo(dir)
        Dim directoire2 As New DirectoryInfo(dir2)
        Dim fichierinfo1() As FileInfo = directoire1.GetFiles
        Dim fichierinfo2() As FileInfo = directoire2.GetFiles

        Dim dupNames = From a In fichierinfo1 Join b In fichierinfo2 On a.Name Equals b.Name Select a.Name
        ' info for the listview
        With Me.ListView1
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            .CheckBoxes = True
            .Columns.Add("Fichiers", 150, HorizontalAlignment.Left)
            .Columns.Add("Dernière Modification", 120, HorizontalAlignment.Left)
        End With
        ' info sur l autre listview
        With Me.ListView2
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            .CheckBoxes = True
            .Columns.Add("Fichiers", 150, HorizontalAlignment.Left)
            .Columns.Add("Dernière Modification", 120, HorizontalAlignment.Left)
        End With

        'add the same files in the listview

        For Each repertoire As FileInfo In fichierinfo1
            'check if the files is the same name
            For Each repertoire2 As FileInfo In fichierinfo2
                If repertoire.Name = repertoire2.Name Then
                    Dim fichier As New ListViewItem(repertoire.Name)
                    Dim fichier2 As New ListViewItem(repertoire2.Name)
                    'files1
                    With fichier
                        .Name = repertoire.Name
                        .SubItems.Add(repertoire.LastWriteTime.ToString)
                        .Tag = repertoire
                    End With
                    'files1
                    With fichier2
                        .Name = repertoire2.Name
                        .SubItems.Add(repertoire2.LastWriteTime.ToString)
                        .Tag = repertoire2
                    End With
                    'add both files
                    Me.ListView1.Items.Add(fichier)
                    Me.ListView2.Items.Add(fichier2)

                End If

            Next
        Next
        ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '                           ERROR IN THIS PART with THE RECURSIVE PROCEDURE
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim directoiresinfo() As DirectoryInfo = directoire1.GetDirectories
        Dim directoires2info() As DirectoryInfo = directoire2.GetDirectories
        Dim directoireGrosseur1() As String = IO.Directory.GetDirectories(dir)
        Dim directoireGrosseur2() As String = IO.Directory.GetDirectories(dir2)

        If directoireGrosseur1.Length <> 0 And directoireGrosseur2.Length <> 0 Then
            For Each info As IO.DirectoryInfo In directoiresinfo
                For Each info2 As IO.DirectoryInfo In directoires2info
                    If info.Name = info2.Name Then
                        Dim dossier As New ListViewItem(info.Name)
                        Dim dossier2 As New ListViewItem(info2.Name)
                        With dossier
                            .Name = info.Name
                            .SubItems.Add(info.LastWriteTime.ToString)
                            .Tag = info
                        End With
                        With dossier2
                            .Name = info2.Name
                            .SubItems.Add(info2.LastWriteTime.ToString)
                            .Tag = info2
                        End With
                        Me.ListView1.Items.Add(dossier)
                        Me.ListView2.Items.Add(dossier2)
                        comparerfichier(info.GetDirectories.ToString, info2.GetDirectories.ToString)
                    End If
                Next
            Next
        End If
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '                                             ERROR IN THIS PART
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        For Each pareil As String In dupNames
            Dim itemA As ListViewItem = ListView1.Items(pareil)
            Dim itemB As ListViewItem = ListView2.Items(pareil)
            Dim infoA As FileInfo = CType(itemA.Tag, FileInfo)
            Dim infoB As FileInfo = CType(itemB.Tag, FileInfo)

            If infoA.Length <> infoB.Length OrElse infoA.LastWriteTime <> infoB.LastWriteTime Then
                itemB.ForeColor = Color.Red
                itemA.ForeColor = Color.Red
            End If
        Next

    Catch ex As Exception
        MessageBox.Show(ex.Message, "Comparer 2 répertoires", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Try
End Sub

What I have tried:

so yeah, my recursive procedures doesn't work great! I'm trying to debug it but I'm not found anything yet! If you guys can help me it would be very appreciated!