Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Daten / Dateien / Vergleichen

Zwei Dateien vergleichen

Die folgende Funktion vergleicht zwei Dateien miteinander:
Function FileEqual( _
    ByRef Path1 As String, _
    ByRef Path2 As String _
  ) As Boolean
  'Bei unterschiedlicher Länge abbrechen:
  If FileLen(Path1) <> FileLen(Path2) Then Exit Function
  
  'Inhalte vergleichen:
  FileEqual = (ReadFile(Path1) = ReadFile(Path2))
End Function

© Jost Schwider, 03.02.2001-03.02.2001 - http://vb-tec.de/fileeq.htm