Discussion :

[Low-Fi]

Bonjour

J'aimerais pouvoir écrire un bout de code pour comparer le contenu de 2 dossiers (et des sous dossiers).
Pour le moment le contenu des dossiers est affiché dans un treeview comprenant tous les sous dossiers respectifs.

Si j'ai un dossier source de la forme :

Dossier
--- aaa.txt
--- bbb.txt
--- Sdossier
-------- ccc.txt
-------- ddd.txt

Et le second dossier de la forme
Dossier
--- aaa.txt
--- bbb.txt
--- Sdossier
-------- ccc.txt
-------- ddd.txt
-------- eee.txt

J'aimerais avoir une fonction qui me dise :
Attention le second dossier comporte le fichier eee.txt non présent dans le dossier source...

Le problème est que je ne sais pas comment m'y prendre pour comparer les 2 dossiers, en prenant en compte toutes les différences possible (dossier différents, nom fichier différents, taille différente...)

Merci d'avance pour votre aide.

[HULK]

avec ce code tu va parcourir les dossiers et fichers de ton c:\, tu n'as qu'a mettre les fichier dasn des listbox par exemple et les comparer

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
 
  Dim rep As String
        'obtient le premier fichier ou répertoire qui est dans "c:\"
        rep = Dir("c:\*.*", vbDirectory)
        'boucle tant que le répertoire n'a pas été entièrement parcouru
        Do While (rep <> "")
            'teste si c'est un fichier ou un répertoire
            If (GetAttr("c:\" & rep) And vbDirectory) = vbDirectory Then
                MsgBox("Répertoire " & rep)
            Else
                MsgBox("Fichier " & rep)
            End If
            'passe à l'élément suivant
            rep = Dir()
        Loop

http://vb.developpez.com/faq/?page=Fichiers#contenu_rep