Test NetResourcesRoot and BaseNetResource classes as follows:
LOCAL oNetResources As NetResourcesRoot
oNetResources = CREATEOBJECT("NetResourcesRoot")
DO ShowResources WITH oNetResources, 0
PROCEDURE ShowResources(oContainer, nLevel)
LOCAL oRs As BaseNetResource
FOR EACH oRs IN oContainer.netresources
WITH oRs
? REPLICATE(" ", nLevel*4) + .remotename
IF oRs.IsContainer()
DO ShowResources WITH oRs, nLevel+1
ENDIF
ENDWITH
NEXT
Credits: PHP (4.4.9), an HTML-embedded scripting language,
MySQL (5.1.55-log), the Open Source standard SQL database,
AceHTML Freeware
Version 4, freeware HTML Editor of choice. Hosted by Korax Online Inc.