Comparer deux repertoires avec Maj

Bonjour à tous,

J’aimerais comparer deux répertoires qui devront être identiques, et mettre à jour le deuxième répertoire s'il lui manquait des sous-répertoires par rapport au premier.

Voila un exemple fait par Jacques Boisgontier :

Merci d'avance.

Pas de réponse possible ?

Bonjour,

Voila un code que j'ai adapter pour mettre à jour un deuxième répertoire par rapport à un premier répertoire.

Mais, pour le moment il ne fait pas de comparaison :

Option Explicit

Sub Demo()
    Dim fso As Object    'FileSystemObject
    Dim fldStart As Object    'Folder
    Dim fld As Object    'Folder
    Dim fl As Object    'File
    Dim Mask As String, Racine As String

    Racine = ChoixDossier
      If Racine = "" Then Exit Sub

    Set fso = CreateObject("scripting.FileSystemObject")
    Set fldStart = fso.GetFolder(Racine)

    fldStart.Copy ("C:\Users\hp\Desktop\Folder\TL 2015")
    Set fldStart = Nothing
    Set fso = Nothing
    '-----------------
End Sub

Function ChoixDossier()
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count > 0 Then
           ChoixDossier = .SelectedItems(1)
        Else
           ChoixDossier = ""
        End If
       End With
     Else
       ChoixDossier = InputBox("Répertoire?")
     End If
End Function

Bonsoir,

Ne peut-on pas adapter le code exemple fournit en dessus ?

Bonsoir,

Pas de solutions possibles donc ?