![]() |
Re: Filedup - Identische Dateien finden
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ß |
Re: Filedup - Identische Dateien finden
Liste der Anhänge anzeigen (Anzahl: 1)
Öhm ja ;) Also unten in der Statusleiste steht 36921 Objekte :P
Aber ich denke, manches lässt sich nicht ändern :P PS: Ich wünsche mir noch einen "Ergbnis"-Dialog. Also z.B.: Zitat:
|
Re: Filedup - Identische Dateien finden
:thumb: Super Programm ...
WinXP Home Edition Ordner auf Festplatte: -> 2,66 GB -> 3.660 Dateien in 275 Ordnern Suche: -> 3.660 Dateien -> 41 sec Bug |
Re: Filedup - Identische Dateien finden
Habe etwa 500 Dateien mit 0 Byte gefunden. Wie kann man die alle löschen, ohne jede einzeln auszuwählen?
|
Re: Filedup - Identische Dateien finden
moin,
im moment geht es einzeln oder du setzt das Häkchen und drückst dann auf 'Auswahl löschen' oder 'Löschen' in der Symbolleiste. Die Zusammenfassung und das Markieren von ganzen Gruppen (Häkchen setzen für ganze Gruppen) wird heute noch integriert. :zwinker: |
Re: Filedup - Identische Dateien finden
Liste der Anhänge anzeigen (Anzahl: 1)
~480.000 Dateien (mit irgendwas über 130 GB)
WinXP SP2 Athlon64 3000+ nach 2,5 Stunden bei etwa 20% abgebrochen da sind etwa 100.000-150.000 gleichgroße Dateien á 1 und 4 KB vorhanden. PS: das Abbrechen dauerte etwas lange ... anscheinend beendest du nur nach jedem vollem Durchlauf der 1.Datei und wenn da erst noch die restlichen paar tausend gleichgroßen 2.Dateien verglichen werden ... *langewart* PS2: mal als Anreiz für die Geschwindigkeit, denn eigentlich ist dein Programm ja recht nett... (dat hab ich von gestern zu heute mal schnell im Zusammenhang mit meinen Dateilese-/-schreibversuchen zusammengestellt :angel: ) - einmal in 'nem eigenständigem Thread laufend, oder nur als Procedure - vorläufige Vergleich über 'nen CRC32o-Hash - 100%-Direktvergleich bei Größe- und Hashübereinstimmung - Dateioperationen NonCached - ... ansonsten nicht viel drin ._. - komplette Neuentwicklung, allerdings unter Berücksichtung der Probleme aus ![]() |
Re: Filedup - Identische Dateien finden
@himitsu: Welche Version hasten verwendet? :lol:
|
Re: Filedup - Identische Dateien finden
Mittwoch nachmittag?
kann es ja nochmal mit der Jetzigen versuchen. :angel: Der Eintrag unter "2.Datei" rattert ja recht schnell durch, nur unter "1.Datei" tut sich bei vielen Dateien recht lange nichts. (da gibt's wohl zuviele Vergleiche :gruebel: ) Also zuletzt ist der fast 'ne 1 Stunde auf diesesn 20% geblieben ... es änderten sich da halt vorwiegend was unter 2.Datei und alle 1-3 minuten mal die 1.Datei ... |
Re: Filedup - Identische Dateien finden
Zitat:
(24.sek non-cached, 4.sek. cached, @7300 Dateien, Laufwerk C:, Samsung SpinPoint HD1614N, gefunden 716) Zitat:
Zitat:
Hier gleich mal das Changelog: 1.0.3.0
Zitat:
Könnte gut sein, das du noch eine etwas ältere Version erwischt hast, ich habe erst vorgestern oder war es gestern :gruebel: 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:
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.
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; PS: Aber nur, wenn es keine allzu großen Umstände macht ;-) |
Re: Filedup - Identische Dateien finden
Zitat:
Gruß |
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz