TDirectoryListBox
lazarus / 7-LCL

----------------------------------------------------------------------
kaisen2100 · 2006-11-18 00:51

i can't find any TDirectoryListBox or something like that to see a
Directory Tree ... I cannot find code to put in a list all the subdirs
from a dir ...

There any code (or any TDirectoryListBox component)  to see the the
subdirs form, for example, "C:\" (by the moment i am working just on
win32)?

Thanks in advance

----------------------------------------------------------------------
typo · 2011-09-15 14:01

See TDirectoryEdit on Misc tab.

----------------------------------------------------------------------
User137 · 2011-09-15 14:07

TShellTreeView on same misc tab lets you show all folders on your
form.

Just 1 thing, when i set its ShellListView property to new
TShellListView, and then deleted the TShellListView, Lazarus crashed.
So it might be best to remove their link first when deleting
component.

----------------------------------------------------------------------
Blue1987 · 2011-09-15 14:20

Quote from: typo on September 15, 2011, 04:01:50 pmSee TDirectoryEdit
on Misc tab.

thank you... I'll try...

----------------------------------------------------------------------
Blue1987 · 2011-09-15 14:26

I am simply using it in order to have an array of strings where each
string corresponds to each directory in a determined path (say c:\)
how can I obtain this using the components you advised me to use?

----------------------------------------------------------------------
typo · 2011-09-15 14:32

You could use TFileSearcher.

----------------------------------------------------------------------
Blue1987 · 2011-09-15 14:37

Quote from: typo on September 15, 2011, 04:32:53 pmYou could use
TFileSearcher.

ehm, which is not in "misc"
I cannot find it

----------------------------------------------------------------------
Blue1987 · 2011-09-15 14:38

Quote from: Blue1987 on September 15, 2011, 04:37:53 pmQuote from:
typo on September 15, 2011, 04:32:53 pmYou could use TFileSearcher.

ehm, which is not in "misc"
I cannot find it 

btw, for me it is also ok to write some piece of code

----------------------------------------------------------------------
typo · 2011-09-15 14:41

TFileSearcher is not a component.

Search on this forum for the usage.

----------------------------------------------------------------------
Blue1987 · 2011-09-15 15:12

Quote from: typo on September 15, 2011, 04:41:16 pmTFileSearcher is
not a component.

Search on this forum for the usage.

does not it exist some "findalldirectories" or some way to simply use
"findallfiles" and get the directories in a path?

----------------------------------------------------------------------
Blue1987 · 2011-09-15 15:16

if I use
ciao = tfilesearch.create;
ciao.search(...)

i find a single file/directory...

in the forum I only found http://www.lazarus.freepascal.org/index.php/
topic,13266.msg69291.html#msg69291

but it was used for files (not for folders)...


sorry if I am not so smart, but I am simply not managing in obtaining
what I want 

can you link me some piece of documentation?

----------------------------------------------------------------------
typo · 2011-09-15 15:18

http://lazarus-
ccr.sourceforge.net/docs/lcl/fileutil/tfilesearcher.html

http://lazarus-ccr.sourceforge.net/docs/lcl/fileutil/findallfiles.html

----------------------------------------------------------------------
Blue1987 · 2011-09-15 15:49

Code: [Select]directorylistbox1.Items.clear;
if FindFirst ('immagini' + pchar + 'sfondi' +pchar +'*', faDirectory,
Rec) = 0 then
try
repeat
if (rec.name <> '.') and (rec.name <> '..') then
directoryListBox1.Items.Add(Rec.Name) ;
until FindNext(Rec) <> 0;
finally
FindClose(Rec) ;
end;
this is my solution, where directorylistbox1 is a Tlistbox and Rec is
a Tsearchrec