Du kannst das mit FSO machen

Sub Foldervergleichen(Pfad1 as string, Pfad2 as string)
 
  Dim FSO As New Scripting.FileSystemObject
  Dim Folder_alt As Scripting.Folder
  Dim Folder_neu As Scripting.Folder
  Dim Size_alt As Double
  Dim Size_neu As Double
  Dim Folder As Folder
 
  Set Folder_alt = FSO.GetFolder("Pfad1") 'Pfad von ordner eins setzen
  Set Folder_neu = FSO.GetFolder(Pfad2) ' Pfad von ordner zwei setzen  
 
  ' Von beiden Verzeichnisse die Grösse ermitteln
  Size_alt = Folder_alt.Size
  Size_neu = Folder_neu.Size
  ' Grösse vergleichen, ist sie gleich, ist alles in Ordnung
  If Size_neu = Size_alt Then
    MsgBox "Die Ordner sind gleich"
  Else
    MsgBox "Die Ordner sind ungleich"
  End If
End Sub

Gruss
Cyberclone