delphi unterordner auflisten(2)

[BlackSeven]

Zitat:

procedure FindAllFolders(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True; var aDirList : TStringList );

procedure FindAllFolders(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True; const aDirList : TStringList = nil);