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...
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.