🚀 go-pugleaf

"Greg Stantin" <gstantin@stantonassoc.com> wrote in message
news:402966b0$1@newsgroups.borland.com...

> Even though it works okay, it still displays some dirs with a plus
> sign in the tree, as thought there are files in that dir.  But when i
> click on the plus sign, there is nothing there.

Part of the problem is that you are not taking "." and ".." into account
when you are assigning the HasChildren property.  Remember that *all*
folders have those two entries present, so they always show up when you call
FindFirstFile().  You should move that code into its own function that
checks for actual file/folder entries being present, ie:

    void TForm1::BuildTreeView(TTreeNode* ANode, const AnsiString APath)
    {
        //...
        Node->HasChildren = FolderHasChildren(APath + Data.cFileName);
        //...
    }

    bool __fastcall FolderHasChildren(const AnsiString &APath)
    {
        bool bHasChildren = false;
        AnsiString Path = IncludeTrailingBackslash(APath);

        WIN32_FIND_DATA Data;
        HANDLE FileHandle = FindFirstFile(Path + "*.*").c_str(), &Data);
        if( FileHandle != INVALID_HANDLE_VALUE )
        {
            do {
                bHasChildren = ( !AnsiSameText(Data.cFileName, ".") &&
!AnsiSameText(Data.cFileName, "..") );
            }
            while( (!bHasChildren) && (FindNextFile(FileHandle, &Data)) );
            FileClose(FileHandle);
        }
        return bHasChildren;
    }

Alternative, you could just leave HasChildren = false for new nodes, and
then set it to true when you actually add a new child to it:

    void TForm1::BuildTreeView(TTreeNode* ANode, const AnsiString APath)
    {
        //...
        if( ANode != NULL )
        {
            Node = TreeView1->Items->AddChild(ANode, Data.cFileName);
            ANode->HasChildren = true;
        }
        else
        {
            Node = TreeView1->Items->Add(NULL, Data.cFileName);
            Node->HasChildren = false;
        }
        //...
    }

> I double check in explorer, and there is nothing there.

The thing about Explorer, though, is that it uses a *completely* different
mechanism for tracking and displaying folders and files.  The alternative to
the above is to use the same mechanism that Explorer uses - use the
IShellFolder interface for everything instead of iterating the file system
manually.  IShellFolder() has a GetAttributesOf() method that can return
SFGAO_FILESYSTEM, SFGAO_FOLDER, and SFGAO_HASSUBFOLDER attributes in a
single call (amongst many others), and an EnumObjects() method for
enumerating the sub-items (files and subfolders).


Gambit