NewEnum_ Method

 

Description

 

Returns a reference to the standard IEnumVARIANT interface.

 

PowerBASIC Syntax

 

METHOD NewEnum_ () AS IUnknown

 

Return Value

 

IDispatch. A reference to the standard IEnumVARIANT interface.

 

Example [PowerBASIC]

 

#INCLUDE "WSHOM.INC"

 

DIM pWsh AS IWshShell

DIM pSpecialFolders AS IWshCollection

DIM pUnk AS IUnknown

DIM nCount AS LONG

DIM i AS LONG

DIM vValue AS VARIANT

 

pWsh = NEWCOM "WScript.Shell"

 

' Get a reference to the special folders collection

pSpecialFolders = pWsh.SpecialFolders

 

' Get the number of objects in the collection

nCount = pSpecialFolders.Count

 

' Get a reference to the collection's enumerator

pUnk = pSpecialFolders.NewEnum_

pEnum = pUnk

 

' Enumerates the collection

FOR i = 0 TO nCount - 1

   pEnum.Next 1, vValue, celtFetched

   IF celtFetched = 0 THEN EXIT FOR

   STDOUT VARIANT$(vValue)

NEXT

 

Valid XHTML 1.0 Transitional