Private Sub Command1_Click()
' Dateien vergleichen
If Not FileEqual("C:\autoexec.bat", "D:\test.txt") _
Then MsgBox "Keine Übereinstimmung!"
 
End Sub
 
Public 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
 
Public Function ReadFile(ByRef Path As String) As String
  Dim FileNr As Long
 
  'Falls nicht vorhanden, nichts zurückgeben:
  On Error Resume Next
  If FileLen(Path) = 0 Then Exit Function
  On Error GoTo 0
 
  'Datei einlesen:
  FileNr = FreeFile
  Open Path For Binary As #FileNr
    ReadFile = Space$(LOF(FileNr))
    Get #FileNr, , ReadFile
  Close #FileNr
End Function