VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

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