Kontakt
DSVGO
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