Filedup 1.0.7.0 - Identische Dateien finden

[bigg]

Zitat von MrKnogge:

OS: Windows XP MediaCenterEdition2005 Sp2
Durchsucht: 1.792 Dateien, 181 Ordner, 1,84 GB
Dauer: 13 Sekunden

Beim 2. Durchlauf, braucht es nur noch 7 Sekunden.

Gruß

Diese Werte habe ich in etwa auch. Die Anzahl der Duplikate wäre noch lesenswert.
(24.sek non-cached, 4.sek. cached, @7300 Dateien, Laufwerk C:, Samsung SpinPoint HD1614N, gefunden 716)

Zitat von BUG:

Super Programm ...

WinXP Home Edition

Ordner auf Festplatte:
-> 2,66 GB
-> 3.660 Dateien in 275 Ordnern

Suche:
-> 3.660 Dateien
-> 41 sec


Bug

Danke, für das Lob. langsam wird es unheimlich.

Zitat von xZise:

Aber ich denke, manches lässt sich nicht ändern

PS: Ich wünsche mir noch einen "Ergbnis"-Dialog.
Also z.B.:

Jupp ist drin^^.
Hier gleich mal das Changelog:

1.0.3.0

• Exportfunktion um die Punkte: 'Dauer', 'Duplikate', 'Gefundene Dateien' und 'Durchsuchte Dateien' erweitert
• Zusammenfassung im Menü unter Ansicht implementiert
• Markierung von ganzen Gruppen im Kontextmenü hinzugefügt

Zitat von himitsu:

PS: das Abbrechen dauerte etwas lange

Klingt nicht sonderlich gut, was heißt lange?

Könnte gut sein, das du noch eine etwas ältere Version erwischt hast, ich habe erst vorgestern oder war es gestern noch ein zusätzliches Break eingeschoben. (im Dateilistenvergleich) Es verbessert nicht sonderlich die Performance, sollte allerdings das Abbrechen beschleunigen.

Es wäre sehr hilfreich, wenn du die einzelnen Listen manuell überprüfen könntest.
Dazu müßtest du zur Procedure Main.Scan() springen und ein paar Zeilen auskommentieren und Filedup neu kompilieren.

Delphi-Quellcode:

procedure TMainForm.Scan(const FolderList: TStringList);
var i: Integer;
begin
  Project.CancelProcess := False;

  if FolderList.Count > 0 then
  begin
    BeforeScan();
      StateMessage('Suche Dateien...');

      // Dateien suchen und ins Grid einfügen
      for i := 0 to FolderList.Count -1 do
      begin
        if Project.CancelProcess then Break;
        FindAllFiles(FolderList[i]);
      end;

      // Anzahl gefundener Dateien anzeigen
      Project.FilesFound := NodeCount();
      StateMessage(IntToDecimal(Project.FilesFound) + ' - Dateien gefunden...');
      
      // Dateien gleicher Größe umsortieren
      SortByFileSize();
      
->{hier auskommentieren
      // Liste aus Unterknoten erstellen und Dateilisten vergleichen (Dateiinhalt)
      GetSubNodes();

      // Dateien anzeigen, die nicht geöffnet werden konnten (Zugriff verweigert.)
      ShowFilesInUse();

      // Temporäre Einträge löschen
      DeleteTemporaryNodes();
}<-


    AfterScan(); 
  end;

  // Status-Formular ohne Nachfrage schließen
  Project.CancelProcess := True;
  Application.Title := AppTitle;
end;

Dabei wäre es interressant zu wissen, wie lang die einzelnen Knoten/Unterlisten sind. Wenn du die Zeilen so auskommentierst, zeigt er nur Dateien an, die die gleiche Größe besitzen.

PS: Aber nur, wenn es keine allzu großen Umstände macht