On Sat, 25 Jul 2020 10:51:37 +0200, Bart via fpc-pascal
<fpc-pascal@lists.freepascal.org> wrote:
>On Sat, Jul 25, 2020 at 12:24 AM Bo Berglund via fpc-pascal
><fpc-pascal@lists.freepascal.org> wrote:
>
>> But I would like to enumerate the subdirectories themselves (without
>> the content).
>
>Take a look at how FindAllFiles is implemented.
>It should be relatively easy to modify it so that it discards files
>and only adds folders to the list.
>
I already looked there but it just sends me deeper yet until I do not
follow the logic anymore...
Here is what I get when I look at the definition:
procedure FindAllFiles(AList: TStrings; const SearchPath: String;
SearchMask: String; SearchSubDirs: Boolean; DirAttr: Word);
var
Searcher: TListFileSearcher;
begin
Searcher := TListFileSearcher.Create(AList);
Searcher.DirectoryAttribute := DirAttr;
try
Searcher.Search(SearchPath, SearchMask, SearchSubDirs);
finally
Searcher.Free;
end;
end;
The item that is not described in the documentation is the argument
"DirAttr" as I mentioned, can that be used for this problem?
I still do not understand what it does since it is not described in
the documentation either:
https://wiki.freepascal.org/FindAllFiles
Meanwhile I found a sysutils function: GetDirs()
https://www.freepascal.org/docs-html/rtl/sysutils/getdirs.html
But this uses arrays of PChar where I want to populate a TStrings
list.
--
Bo Berglund
Developer in Sweden
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
