Hi,
I am having trouble with a hierarchical listbox that displays iles and
folders (seen on Mark's book page 282). On the ExpandRow event of the
listbox, I have :
dim f as FolderItem
dim x,y as integer
f = me.CellTag(row,0)
y = f.count
for x = 1 to y
if f.item(x).Directory then
me.addfolder(f.item(x).DisplayName)
else
// to avoid seeing invisible files under OS X
if left(f.item(x).DisplayName,1) <> "." then
me.addrow(f.item(x).DisplayName)
end if
end if
me.celltag(me.LastIndex,0) = f.item(x)
next
It works fine the first time I expand the intial row (ie. Volume(0)). If
I collapse the initial row, then, I can't expand it again.
The code seems straight forward to me, but...
Where is the bug then?
TIA,
Regards,
Youri
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
