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
' info que j'ai trouver sur internet, elle vérifie, que le nom du premier fichier est pareil que le nom du deuxieme fichier
Dim dupNames = From a In fichierinfo1 Join b In fichierinfo2 On a.Name Equals b.Name Select a.Name
' info sur le listview
With Me.ListView1
.View = View.Details
.GridLines = True
.FullRowSelect = True
.CheckBoxes = True 'affiche les cases à cocher
.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 'affiche les cases à cocher
.Columns.Add("Fichiers", 150, HorizontalAlignment.Left)
.Columns.Add("Dernière Modification", 120, HorizontalAlignment.Left)
End With
'remplis le listview
For Each repertoire As FileInfo In fichierinfo1
'verifie les 2 repertoire pour voir si il y a des fichiers pareil
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)
'initialise le fichier1
With fichier
.Name = repertoire.Name
.SubItems.Add(repertoire.LastWriteTime.ToString)
.Tag = repertoire
End With
'initialise le fichier2
With fichier2
.Name = repertoire2.Name
.SubItems.Add(repertoire2.LastWriteTime.ToString)
.Tag = repertoire2
End With
'ajoute les 2 fichiers portant le meme nom
Me.ListView1.Items.Add(fichier)
Me.ListView2.Items.Add(fichier2)
End If
Next
Next
' dossier pareil
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' COMPARAISON DE DIRECTOIRE NON FONCTIONNEL. MANQUE DE TEMPS POUR VÉRIFIER L'ERREUR
' LA RÉCURSIVITÉ NE SE FAIT PAS CORRECTEMENT
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ERREUR DANS LA PARTIT DU CODE DU HAUT
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Partager