AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Ordner nach *.exe durchsuchen

Ein Thema von Flodding · begonnen am 3. Mär 2009 · letzter Beitrag vom 3. Mär 2009
 
Flodding

Registriert seit: 26. Dez 2007
Ort: Kiel
121 Beiträge
 
Turbo Delphi für Win32
 
#1

Ordner nach *.exe durchsuchen

  Alt 3. Mär 2009, 17:24
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
Flo
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:14 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 by Thomas Breitkreuz