🚀 go-pugleaf

After enumerating network resources how to enumarate shared folders ?

BOOL __fastcall TNetEnumForm::EnumFunc (LPNETRESOURCE lpnr, TTreeNode
*pNode)
{
DWORD dwResult, dwResultEnum;
HANDLE hEnum;
DWORD cbBuffer = 16384;
DWORD cEntries = 0xFFFFFFFF;
LPNETRESOURCE lpnrLocal;
DWORD i;

dwResult = WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0,
lpnr,&hEnum);

if (dwResult != NO_ERROR)
    return FALSE;

lpnrLocal = (LPNETRESOURCE) GlobalAlloc (GPTR, cbBuffer);
dwResultEnum = WNetEnumResource (hEnum, &cEntries, lpnrLocal, &cbBuffer);
if (dwResultEnum == NO_ERROR) {
    for(i=0; i<cEntries; i++) {
        if(RESOURCEUSAGE_CONTAINER == (lpnrLocal[i].dwUsage &
RESOURCEUSAGE_CONTAINER)) {
            if (EnumFunc(&lpnrLocal[i], pNode) &&
(lpnrLocal[i].dwDisplayType == RESOURCEDISPLAYTYPE_SERVER)) {
                AnsiString Ans1 = lpnrLocal[i].lpRemoteName;
                int pos = Ans1.Pos ("\\\\");
                if (pos) Ans1.Delete (1, pos+1);
                pNode = TreeView1->Items->Add (pNode, Ans1);

                // i thought this will enumarate folders but ... noup
                lpnrLocal[i].dwType = RESOURCETYPE_ANY;
                if (WNetAddConnection2(&lpnrLocal[i], NULL, NULL,
CONNECT_UPDATE_PROFILE) == NO_ERROR)
                    TreeView1->Items->AddChild (pNode,
lpnrLocal[i].lpLocalName);
                }
            }
        }
    }
else if (dwResultEnum != ERROR_NO_MORE_ITEMS)
    return false;

GlobalFree((HGLOBAL) lpnrLocal);
dwResult = WNetCloseEnum(hEnum);

if(dwResult != NO_ERROR)
    return FALSE;
return TRUE;
}