FileListBox1, DirectoryListBox1, DirectoryOutline1.... Aua

[Lifthrasir]

Hi - diese drei Komponenten treiben mich in den absoluten Wahnsinn....

Ich plane ein Programm, das selbstständig mein Laufwerk durchläuft und dabei gesuchte Items zusammen trägt.. halt ne Suchmaschine wenn man so will..
Jedoch klappt das mit meinem mangelndem Schulwissen überhaupt net..

hab ne DirectoryListBox1 mit passender FileListBox1 - wenn ich mich da manuell hindurch klicker funxt alles super..
nun hab ich aber n Timer der automatisch die Ordner durchgehen soll.
Da ich es aber irgendwie nicht hinbekomm DirectoryListBox1 komplett zu expandieren hab ich kurzerhand ne DirectoryOutline1 ins Spiel gebracht, die alle Ordner einwandfrei expandiert!

Nun möchte ich unter einer Schleife jeden Ordner unter die Lupe nehmen und die Daten in der FileListBox darstellen..
geht aber net.. warum auch immer net..
bei der DirectoryOutline1 bekomm ich erst übern Befehl gar kein Item markiert.. und bei der DirectoryListBox1 nur die erste Ebene - weil die anderen sich nicht zeigen- und die FileListBox "aktualiesiert" sich net - wenn ich dann mal in der DirectoryListBox1 einen Ordner über n befehl markiert hab.. set oder so..

Irgendwie bin ich am Rande der Verzweiflung. - bitte entschuldigt demnach auch die Rechtschreibfehler, aber mein Hirn steckt in Sinnlosem Quelltext fest..

kann mir jmnd weiterhelfen?
Würde ja gerne was dazu lernen..
gruß

[DeddyH]

Wenn ich nicht danebenliege, befinden sich die genannten Komponenten auf dem Reiter "Win 3.1", sind also nicht mehr ganz aktuell . Leider habe ich Dein Vorhaben noch nicht ganz verstanden, aber mit einer normalen ListBox solltest Du die gesuchten Dateien doch auch darstellen können. Aber dazu bräuchte man (zumindest ich) eine genauere Beschreibung der geplanten Funktionalität.

[RWarnecke]

Schaue Dir mal die folgenden Code-Library Beiträge an : findfirst findnext. Wenn ich Dein Vorhaben richtig verstanden habe, dann solltest Du es mit den Code-Library Beiträgen realisieren können.

[Lifthrasir]

jaja - das die Dinger auf Win 3.1 liegen weiß ich ja.. hab sie ja daher..

nur eben will ich das mein Programm zb meine Komplette C-Platte nach gesuchten Daten durchstöbert.. das soll das ganze ergebniss sein.. aber wie machen?

[alleinherrscher]

Vielleicht suchst du was, womit mit Dateien und Ordner eines Verzeichnisses auflisten kann?

Delphi-Quellcode:

var
  LFileList: TStringlist;
  LFolderList:TStringList;
  LSearchRec: TSearchRec;
  LPfad: string;
begin

LPfad:='C:\';
LFileList:= TStringlist.Create;
LFolderList:=TStringlist.create;

if FindFirst(LPfad + '*.*', faAnyFile, LSearchRec) = 0 then
  begin
   repeat

    //Ordner auflisten

    if LSearchRec.Attr and faDirectory = faDirectory then
      if (LSearchRec.Name <> '.') and (LSearchRec.Name <> '..') then
              LFolderList.add(LSearchRec.Name);
              
    //Dateien auflisten

    if LSearchRec.Attr and faDirectory = 0 then
              LFileList.add(LSearchRec.Name);

   until FindNext(LSearchRec) <> 0;
   FindClose(LSearchRec);
  end;

end;

//edit: Variablen LFileList und LFolderlist vertauscht, sry

Mit dieser Funktion erhälst du zwei Listen, LFileList und LFolderList. Dabei enthält LFileList alle Dateien, LFolderList alle Ordner. Diese kannst du dann einfach in einer Listbox ablegen, indem du z.B.

Listbox1.items:=LFileList; verwendest.

[RWarnecke]

Zitat von Lifthrasir:

jaja - das die Dinger auf Win 3.1 liegen weiß ich ja.. hab sie ja daher..

nur eben will ich das mein Programm zb meine Komplette C-Platte nach gesuchten Daten durchstöbert.. das soll das ganze ergebniss sein.. aber wie machen?

Hast du Dir meinen Beitrag #3 angeschaut ?

[DeddyH]

Als weiteren Suchbegriff könnte man FindAllFiles nennen.

[Lifthrasir]

ja hab ich gerade hingesehen.. hmm..
ich glaub ich kann da erstmal einige Zeit mit durcharbeiten verbringen

Danke für eure Hilfe

[alleinherrscher]

Zitat von Lifthrasir:

ja hab ich gerade hingesehen.. hmm..
ich glaub ich kann da erstmal einige Zeit mit durcharbeiten verbringen

Danke für eure Hilfe

Sooo schwer ist es gar nicht, guck dir nochmal meinen editierten Post an. Du kannst die Funktion 1:1 übernehmen. Ich häng dir noch ein beispielprogramm an.