
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