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

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

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


//brauche die unterverzeichnisse nicht irgendwelche files suchen

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)

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

zusammenfalten · markieren

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;

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