Wie kann ich nach Files mit versch. Extensions suchen?

[aMuTeX]

Hallo zusammen.

Wie kann ich nach Files mit verschiedenen FileExtesions suchen? Also ich weiss das ich mit FindFirst/FindNext Files rekursiv suchen kann. Ich kann auch nach best. FileExt suchen, z.B. alle *.txt Files. Nur wie kann ich mehrere FileExtensions als Maske übergeben? Ich will alle Files mit *.txt;*.doc;*.rtf finden. Wie muss der Path Parameter aussehen damit das klappt? Folg. geht bei mir nämlich nicht:

if FindFirst('C:\TEST\*.txt;*.doc;*.rtf', $23, search) = 0 then ... Es wird nichts gefunden.

Danke für eure Antworten.

[S2B]

Schau doch mal hier: Codelib-Link!
Da gibt es doch den Parameter Mask!

[sakura]

Zitat von S2B:

Schau doch mal hier: Codelib-Link!
Da gibt es doch den Parameter Mask!

Der hilft an dieser Stelle auch nicht weiter

Um Dein Problem zu lösen, musst Du entweder für jede Maske separat FindFirst/FindNext aufrufen oder aber Du scannst nach allen Dateien (*.*) und überprüfst die Endungen manuell

......

[S2B]

Zitat von sakura:

Um Dein Problem zu lösen, musst Du entweder für jede Maske separat FindFirst/FindNext aufrufen [...]

Das meinte ich! Jetzt hab ich mich undeutlich ausgedrückt!

[aMuTeX]

Das hab ich schon gesehen. Nur wird da ja auch nur nach RootFolder+Mask gesucht. Das kommt also aufs gleiche raus wie ich es schon versucht habe.

Oder wie muss dann Mask aussehen damit es geht?

[aMuTeX]

Da war wohl einer schneller

Das Tempo hier überrascht einmal mehr.....


Was ist schneller, nach jeder Ext. separat suchen oder nach *.* suchen und dann selbst filtern?

[sakura]

Am besten Du überprüfst das mal manuell. Ich denke mal, das bei besonders großen Verzeichnissen die manuelle Überprüfung (wenn optimiert) schneller sein dürfte. Aber das ist eine Vermutung - da hilft nur testen

......

[aMuTeX]

Danke!

Und so gehts sogar ziemlich einfach:

Delphi-Quellcode:

if FindFirst(directory+'*.*', $23, search) = 0 then
begin
  repeat
    if Pos(UpperCase(ExtractFileExt(Search.Name)), UpperCase(Mask)) > 0 then
      Files.Add(directory + search.Name);// add the files to the list
  until FindNext(search) <> 0;
  FindClose(search);
end;