Option Explicit
 
Enum enuStatus
  NichtForhanden1       'Datei ist in Verzeichnis 1 nicht vorhanden
  NichtForhanden2       'Datei ist in Verzeichnis 2 nicht vorhanden
  Neuer1                'Datei in Verzeichnis 1 ist neuer
  Neuer2                'Datei in Verzeichnis 2 ist neuer
  Gleich                'Dateien sind gleich
End Enum
 
Type tDateien
  DateiVerz1 As String  'kompletter Pfad einer Datei in Verzeichnis 1
  DateiVerz2 As String  'kompletter Pfad einer Datei in Verzeichnis 2
  Size1 As Integer      'Größe der Datei in Verzeichnis 1
  Size2 As Integer      'Größe der Datei in Verzeichnis 2
  Datum1 As Date        'Datum der Datei in Verzeichnis 1
  Datum2 As Date        'Datum der Datei in Verzeichnis 2
  Status As enuStatus
End Type
 
Private Sub Form_Load()
  Dim Dateien() As tDateien
  Fuelle Dateien, "D:\3D-Daten", "C:\3D-Daten"
End Sub