Habe Dein Programm per Zufall gefunden und finde es super um die Doppelablage von Dateien zu bereinigen.
Als Manko ist mir dabei aufgefallen das auch große Dateien im zu überprüfenden Verzeichnis komplett gescannt werden auch wenn die aktuelle geprüfte Datei kleiner ist.
Würde eine Funktion/Routine ähnlich wie angehängt abhelfen und die Performance verbessern?
Function IsDuplicate(MyFile, OtherFile) As Boolean
IsDuplicate = False
If MyFile.Path = OtherFile.Path Then Exit Function
If MyFile.Size < OtherFile.Size Then
Exit Function
Else
'...Compare
End Function
Viele Grüße
Norbert