[SOLVED]FindAllFiles works for folders/directories?

[torbente]

Hi everyone
Using Lazarus 2.0.10 on win 8.1
Im trying to create my custom file explorer.

Code: Pascal  [Select][+][-]

1. MyDirectory : String;
2. listaarchivos : TStringList();
3. MyDirectory := GetCurrentDir(); // example: c:\myproject
4. FindAllFiles(listaarchivos, MyDirectory , '*.*', false);

It only gets the files in c:\myproject, but how i can get the folders inside this folder?

[ASBzone]

https://wiki.freepascal.org/FindAllFiles

If you want to recurse subfolders, then you need FALSE to be TRUE.

[torbente]

True lists the files in the subfolders of  c:\myproject
I want the name of the folders in  c:\myproject.
One image is better than 1000 words...

https://wiki.freepascal.org/FindAllFiles

If you want to recurse subfolders, then you need FALSE to be TRUE.

[ASBzone]

Then this is what you are looking for:

https://wiki.freepascal.org/fileutil

function FindAllDirectories(const SearchPath: string;  SearchSubDirs: Boolean = True): TStringList;

[torbente]

Thank you!

Then this is what you are looking for:

https://wiki.freepascal.org/fileutil

function FindAllDirectories(const SearchPath: string;  SearchSubDirs: Boolean = True): TStringList;