NewEnum_ Method |
Description
Returns a reference to the standard IEnumVARIANT interface.
PowerBASIC Syntax
Return Value
IDispatch. A reference to the standard IEnumVARIANT interface.
Example [PowerBASIC]
#INCLUDE "WSHOM.INC"
DIM pWsh AS IWshShell DIM pWshEnv AS IWshEnvironment DIM nCount AS LONG DIM pUnk AS IUnknown DIM pEnum AS IEnumVARIANT DIM IID_IEnumVARIANT AS GUID DIM i AS LONG DIM celtFetched AS LONG DIM vValue AS VARIANT
' Create an instance of Windows Script Host pWsh = NEWCOM "WScript.Shell" ' Get a reference to environment collection pWshEnv = pWsh.Environment ' Get the number of objects in the collection nCount = pWshEnv.Count ' Get a reference to the collection's enumerator pUnk = pWshEnv.NewEnum_ pEnum = pUnk FOR i = 0 TO nCount - 1 pEnum.Next 1, vValue, celtFetched IF celtFetched = 0 THEN EXIT FOR STDOUT VARIANT$(vValue) NEXT
|