Der Finder: Tool zum Durchsuchen bestimmter Verzeichnisse

[Andreas H.]

Hallo DPler,

jetzt ist es soweit. Ich möchte Euch meinen Finder (nicht 'Fainder' gesprochen) vorstellen. Er dient zum Finden von Dateien und Verzeichnissen in bestimmten Verzeichnissen. Das Suchergebnis wird übersichtlich in einer Baumansicht dargestellt.

In der angehängten ZIP-Datei sind die Quellen, eine ReadMe-Datei und die ausführbare EXE-Datei enthalten. Eine Installation ist nicht erforderlich.

Der Finder wurde mit Borland BDS2006prof. in Delphi erstellt, er sollte aber auch mit früheren Delphi-Versionen übersetzbar sein.
Fremdkomponenden wurden verwendet (nicht mitgeliefert): TRegExpr class library / Andrey V. Sorokin http://RegExpStudio.com

Die Veröffentlichung erfolgt unter GPL.

Die ReadMe-Datei enthält weitere Infos.
Fragen, Anregungen, Kritik und Fehlerberichte sind herzlich willkommen.

Gruß Andreas

Edit 9.5.2006: neues ZIP-Archiv Finder104.ZIP
Edit 11.5.2006: neues ZIP-Archiv Finder110.ZIP
- Es werden jetzt reguläre Ausdrücke unterstützt

[sECuRE]

Hi,

bei dem Namen würde ich aufpassen. Schließlich heißt Apples Explorer-pendant auch Finder...

cu

[NormanNG]

Hi,

beim Drag&Drop wird statt dem Dateinamen nur Müll angezeigt. Wenn ich den Source richtig verstehe, reservierst du zwar den Speicher für den Dateinamen, schreibst aber dann nichts hinein, oder?

Delphi-Quellcode:

procedure TFinderForm.WMDropFiles(var aMsg: tMessage);
var
  Idx,
    Size,
    FileCount: Integer;
  Filename: pChar;
begin
  inherited;
  FileCount := DragQueryFile(aMsg.WParam, $FFFFFFFF, nil, 255);
  for Idx := 0 to FileCount - 1 do
  begin
    Size := DragQueryFile(aMsg.WParam, Idx, nil, 0) + 1;
    Filename := StrAlloc(Size);   // <- fehlt hier nicht noch was?
    // Zur TreeView hinzufügen
    with TreeView.Items.Add(nil, FileName + '\') do
    begin
      ImageIndex := 2;
      SelectedIndex := 2;
    end;
    StrDispose(Filename);
  end;
  DragFinish(aMsg.WParam);
  TreeView.AlphaSort(false);
  geaendert := true;
end;

Ansonsten ganz nett ;-)

[Andreas H.]

Hi,

schon behoben!

Die fehlende Zeile ist Aufräumarbeiten zum Opfer gefallen und bei der Qualitätssicherung nicht aufgefallen :oops:

Gruß Andreas

[Luckie]

Und was habe ich davon? Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

[s-off]

Hallo.

Zitat:

Und was habe ich davon? Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

Meinst Du nicht, dass etwas mehr Sensibilität angebracht wäre?
Auch wenn das Tool nicht Deinen Vorstellungen entspricht und zweifelsohne auch nicht mit kommerziellen oder auch einigen kostenlos erhältlichen Programmen mithalten kann, so wäre es doch nett, konstruktive Kritik zu äußern, und den Autor nicht mit einem so sinnfreien Kommentar zu verunsichern.

Es kann nicht jeder auf so viel Erfahrung zurückgreifen, wie Du es kannst - jeder fängt einmal ganz unten an.
Und wenn jemand seine ersten Ergebnisse dann einem breiten Publikum zur Verfügung stellt, und auf sachliche Antworten diesbezüglich hofft, dann finde ich es vollkommen in Ordnung.

Kann jetzt nur für mich sprechen, aber wenn ich so abserviert werden würde, hätte ich mit Sicherheit keine Lust mehr, nocheinmal etwas hier vorzustellen. Und das sollte gerade an Dir als Moderator dieser Community nicht spurlos vorüberziehen.

[Andreas H.]

Hallo,

Zitat:

Zitat von Luckie

Und was habe ich davon? Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

Die Explorer-Suche durchsucht rekursiv alle Verzeichnis-Ebenen. Der Vorteil des Finders ist eben, dass nicht rekursiv durchsucht wird und die zu durchsuchenden Verzeichnisse können auf verschiedene Laufwerke verteilt sein. Außerdem habe ich das Ergebnis vorliegen, bevor ich die Maus/Enter-Taste losgelossen habe.
...

Ich nutze den Finder im Büro und finde meine Projektverzeichnisse ruckzuck.

Gruß Andreas

[kalmi01]

Zitat:

Zitat von Luckie

Und was habe ich davon?

Diesbezüglich schliesse ich mich s-off an.

Zitat:

Zitat von Luckie

Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

Ich weiss nicht, welches BS Du auf dem PC hast ?
Bei mir unter XP findet der Explorer teilweise nochnichteinmal Dateien die ihm direkt vor der Nase liegen.
Der Windows-Explorer ist seit XP extrem unzuverlässig, deshalb verwende ich Agent-Ransack.

[Daniel G]

Zitat:

Und was habe ich davon? Mit der Suche vom Explorer kann es ja nicht gerade konkurieren.

Schließe mich da s-off und kalmi01 ausnahmslos an. Es verlangt ja keiner von dir, dass du augenblicklich den Explorer einstampfst. :roll:

-----

Eventuell wäre es noch gut, wenn du die rekursive Dateisuche doch noch integrieren könntest. Mir gefällt nämlich die Baumansicht besser als die Standardansicht im Explorersuchdialog.

[SubData]

Ich hab mir das Programm (noch) nicht angesehen, aber ich gehe mal davon aus, dass es noch keine Reguläre Ausdrücke kann, oder ?!
Das wäre doch etwas, womit man dann dem Explorer locker Konkurenz machen kann -WinkMitDemZaun- ^^

Die Komponente(n) dafür gibs hier: http://www.regexpstudio.com