Rekursive Dateisuche mit Verzeichnis-Filter?

**irrlicht**

Hallo an euch alle.

Wie man sieht bin ich ganz neu hier und schaue mir seit ein paar Tagen sourcecodes an und spiele mit ihnen herum. Mit dem Vorhaben so etwas daraus zu lernen

So, und nun habe ich folgenden sorce für eine rekursive Dateisuche gecopiedingst...

zusammenfalten · markieren

Delphi-Quellcode:

			PROCEDURE GetAllFiles (Maske: STRING; Items: TStrings);

CONST

FileAttr = faReadOnly+faHidden+faArchive+faNormal;

VAR

Search: TSearchRec;

SFName: STRING;

SFPath: STRING;

begin

SFName := ExtractFileName(Maske);

SFPath := ExtractFilePath(Maske);

IF SFPath[Length(SFPath)]<>'\' THEN SFPath := SFPath+'\';

// alle Dateien suchen

IF FindFirst(Maske, FileAttr, Search)=0 THEN

begin

REPEAT

begin

Items.Add(SFPath+Search.Name)

end

UNTIL FindNext(Search)<>0

end;

// Unterverzeichnisse durchsuchen

IF FindFirst(SFPath+'*.*',faDirectory,Search)=0 THEN

begin

REPEAT

begin

IF ((Search.Attr AND faDirectory)=faDirectory)

AND (Search.name[1]<>'.') THEN

begin

// Selbstaufruf von GetAllFiles

GetAllFiles(SFPath+Search.Name+'\'+SFName,Items_)

end

end

UNTIL FindNext(Search)<>0

end

end;

...und habe vor die Ergebnisse einzuschränken. Dateien die aus dem Windows- Program Files und Temp-Verzeichnis stammen, sollen "übersprungen" bzw. nicht in "Items" übergeben werden.

Yoaar theoretisch weiß ich was ich tun muss, doch praktisch..

erstmal die Pfade der Verzeichnise ermitteln, hab ich. Anschließend eine if abfrage vor "Items.Add(SFPath+Search.Name)" einbauen, die SFPath überprüft o.o?
Hmmmm... und da hänge ich nun. Ich hab keine Ahnung wie ich die aussehen muss und wie ich diese dort einbauen kann

Bin euch für jeden Tipp dankbar. Gruß, irrlicht.

Rekursive Dateisuche mit Verzeichnis-Filter?

Rekursive Dateisuche mit Verzeichnis-Filter?

Forumregeln