Private Sub cmdCompare_Click()
  Dim sFile1 As String
  Dim sFile2 As String
 
  ' Hier die beiden Dateien eintragen
  sFile1 = "c:\temp\datei1.ext"
  sFile2 = "c:\temp\datei2.ext"
 
  ' Dateien miteinander vergleichen
  lblStatus.Caption = "Datei-Vergleich läuft..."
 
ShowProgress picProgress, 0, 0, 0<<<<<<<<<Fehlermeldung !!!
 
 
DoEvents
 
  Select Case FileCompare(sFile1, sFile2, picProgress)
    Case Identical
      lblStatus.Caption = "Dateien sind identisch"
    Case SizeDifferent
      lblStatus.Caption = "Dateigrößen unterscheiden sich!"
    Case ContentDifferent
      lblStatus.Caption = "Datei-Inhalte unterscheiden sich!"
  End Select
End Sub

---
Sventke