Comparer la date de modification de deux fichiers

[flipflip]

Salut, je rencontre un petit.
Dans une macro j'ai besoin de synchroniser deux répertoires (un réseau et l'autre local). La copie et la suppression des images fonctionnent, au contraire je dois aussi copier les fichiers existants des deux côtés dont la date de modification est plus récente sur le répertoire réseau.

Voila la fonction que j'utilise :

Public Sub UpdateImage()
    ' Mise à jour des images sur le disque dur
    On Error GoTo err
    Dim RepertoireDistant, RepertoireLocal As String
    Dim oFSO As Scripting.FileSystemObject
    Dim oFichierDistant, oFichierLocal As Scripting.File
    Dim oRepertoireDistant, oRepertoireLocal As Scripting.Folder
    
    RepertoireDistant = "\\monserveur\RepDistant"
    RepertoireLocal = "c:\RepLocal"
    
    Set oFSO = New Scripting.FileSystemObject
    Set oRepertoireDistant = oFSO.GetFolder(RepertoireDistant)
    Set oRepertoireLocal = oFSO.GetFolder(RepertoireLocal)
    
    (...)

    ' Lit le contenue du répertoire distant
    ' pour copier les fichiers dont la date de
    ' dernière modification est plus récente
    ' que la version local
    For Each oFichierDistant In oRepertoireDistant.Files
        ' Recherche le fichier Distant sur le disque local
        DateFichierDistant = oFichierDistant.DateLastModified
        DateFichierLocal = oFichierLocal.DateLastModified
        
        MsgBox (DateFichierDistant & " " & DateFichierLocal)
    Next oFichierDistant
    
fin:
    Exit Sub
    
err:
    Select Case err.Number
        Case 53: MsgBox ("Le fichier est introuvable")
        Case 76: MsgBox ("Répertoire inexistant")
        Case Else: MsgBox ("Erreur inconnue : " & err.Number & " " & err.Description)
    End Select
    
    Resume fin
    
End Sub

En fait je ne sais pas trop comment m'y prendre.
Avec vous une idée ?

 

[flipflip]

Re : Comparer la date de modification de deux fichiers

Personne n'a d'idée ?