unterordner auflisten

[the_seed]

hi, wie man files eines ordner suaflisten kann weiss ich, aber wie kann ich die unterordner eines ordners auslesen?

[nailor]

edit: oder nimm lieber den link hier: http://www.delphipraxis.net/internal...ghlight=suchen

[the_seed]

mhh das suchergebnis bringt mich leider nicht sehr weiter, sind nur zwei ergebnisse :gruebel: die das löschen von files beinhalten


//brauche die unterverzeichnisse nicht irgendwelche files suchen

[nailor]

hab mich auch verbessert und nen direktlink angegeben. da musst du dann nur eine kleine änderung vornehmen (nicht ins memo schreiben, sondern was eigenes machen)

[Matze]

Ich will mal nicht so sein. ;)
So könnte es gehen (ungetestet):

Delphi-Quellcode:

procedure FindAllFolders(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
var
  SR: TSearchRec;
begin
  if AnsiLastChar(RootFolder)^ <> '\' then
    RootFolder := RootFolder + '\';
  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
      try
        repeat
          if SR.Attr and faDirectory = faDirectory then
            if (SR.Name <> '.') and (SR.Name <> '..') then
            begin
              FindAllFolders(RootFolder + SR.Name, Mask, Recurse);
              Form1.Memo1.Lines.Add(RootFolder);
            end;
        until FindNext(SR) <> 0;
      finally
        FindClose(SR);
      end;
end;

[the_seed]

hab ne super function gefunden...
für die nachwelt *g -> -~Klick~-