Datei - Such - Frage

[kurtm1]

Also ich habe hier einen code Teil im Forum gefunden, und diesen ein wenig abgewandelt, herauskommen tut dabei dies:

Delphi-Quellcode:

procedure FindAllFolders(RootFolder: string; Mask: string = '*.*');
var
  SR: TSearchRec;
  SF:TSearchRec;
  dir:String;
begin
  if AnsiLastChar(RootFolder)^ <> '\' then
    RootFolder := RootFolder + '\';
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
      try
        repeat
          if SR.Attr and faDirectory = faDirectory then
            if (SR.Name <> '.') and (SR.Name <> '..') then
            begin
              dir:=RootFolder+sr.Name;
              if (FindFirst(dir+'\*.mp3',faanyfile,SF)=0) then
                begin
                MediaLibrary.Add(dir+'\'+SF.Name);
                while FindNext(SF)=0 do
                MediaLibrary.Add(dir+'\'+SF.Name);
                end;
            end;
        until FindNext(SR) <> 0;
      finally
        FindClose(SR);
        FindClose(sF);
        Form1.ListBox1.Items:=MediaLibrary;
      end;
end;

Funktioniert eigentlich eh alles, nur ein komisches Verhalten ist mir aufgefallen: Die funktion soll einen Ordner rekursive durchsuchen, daher alle Unterordner finden, und auch von diesen MP3 Files zurückgeben.
Das Problem ist jedoch, dass ich nicht von allen "root" Ordnern, die Dateien zurückbekomme, es scheint so, als ob dieser Code nur "eine Ebene" unter dem Root Ordner sucht.
Wie kann ich das ändern?

thx

//EDIT: PS: Die Variable "MediaLibrary" ist eine StringList, die sollte aber eh keine Bedeutung haben