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