Guten Abend zusammen...
ich habe folgenden Quellcode mit dem ich alle Ordner in einem Ordner auflisten kann... ohne Recursive suche und unterdateien ganz einfach so:
--Ordner <-- Zu durchsuchender Ordner
----Ordner im Ordner 1 <-- Erster gefundener Ordner im Ordner
----Ordner im Ordner 2 <-- Zweiter gefundener Ordner im Ordner
----usw.
das ganze lasse ich mit in eine Listbox auflisten.
nun muss ich aber in den unterordnern jeweils noch eine *.exe Datei finden und die in eine andere Listbox eintragen lassen...
ich hab etliche male versucht die FindFiles-funktionen die man ja überall findet um zu schreiben, jedoch ohne ergebniss...
hier mal der code der die ordner in einem ordner NICHT rekursiv findet und auflistet
Delphi-Quellcode:
procedure DirectorySearch(ADirectory: string; AMask: String);
var
SR: TSearchRec;
begin
if FindFirst(ADirectory + '*.*', faDirectory, SR)=0 then
begin
repeat
if (SR.Attr and faDirectory = faDirectory) and (sr.Name<>'.') and (sr.Name<>'..') then
with form1 do begin
AdvSmoothListBox1.Items.Add.Caption:=(sr.Name);
AdvSmoothListBox1.Items.Sort;
end;
until FindNext(SR)<>0;
FindClose(SR);
end;
end;
aufgerufen mit:
DirectorySearch('SUCHORDNER','*.*');
wie gesagt es müssen nur die *.exe Dateien in den jeweiligen unterordnern gefunden werden und in eine weitere listbox aufgelistet werden...
vielen dank im voraus für jede antwort
