Suchfunktion nur bis zu einem Bestimmt Pfadpunkt!

[Hipp0]

Moin Chris,
Vielen Dank. Ein TOP Forum habt ihr hier. Mir wurde selten so schnell geholfen.
Es klappt jetzt genau nach meinen Vorstellungen.

Delphi-Quellcode:

procedure TForm1.GetFilesInDirectory(ADirectory: string; AMask: String; AList: TStrings; ARekursiv: Boolean;const suchtiefe : integer;suchtiefeendwert :integer);
var
  SR: TSearchRec;

  begin
  if (ADirectory<>'') and (ADirectory[length(ADirectory)]<>'\') then
    ADirectory:=ADirectory+'\';
  if (FindFirst(ADirectory+AMask,faDirectory,SR)=0) then begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..')  {(SR.Attr<>faDirectory)} then
      If CheckBox1.checked = true then begin AList.Add(ADirectory+SR.Name); Alist.Add(inttostr(Suchtiefe)) end else AList.Add(SR.Name)
    until FindNext(SR)<>0;
    FindClose(SR);
  end;
  if ARekursiv then
    if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then
    begin
      repeat
        if (SR.Name<>'.') and (SR.Name<>'..') and (suchtiefe<suchtiefeendwert) then
          GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True,suchtiefe+1,suchtiefeendwert);
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
end;

So werde ich es erstmal ausprobieren!hoffentlich erreiche ich hiermit den gewünschten Geschwindigkeitszuwachs.

nochmals Vielen Dank

Gruß
Hipp0