Comparer la date de modification de deux fichiers

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