NewEnum_ Property

 

Description

 

Returns a reference to the standard IEnumVARIANT interface.

 

PowerBASIC Syntax

 

METHOD NewEnum_ () AS IUnknown

 

Return Value

 

IUnknown. A reference to the standard IEnumVARIANT interface.

 

Example [PowerBASIC]

 

#INCLUDE "windows.inc"

#INCLUDE "scrrun.inc"

 

DIM fso AS IFileSystem

DIM pFolder AS IFolder

DIM pSubFolders AS IFolderCollection

DIM pEnum AS IEnumVARIANT

DIM vItem AS VARIANT

DIM celtFetched AS LONG

 

' Create an instance of the FileSystemObject

fso = NEWCOM "Scripting.FileSystemObject"

' Get a reference to the IFolder interface

pFolder = fso.GetFolder(UCODE$("C:\"))

' Get a reference to the IFileCollection interface

pSubFolders = pFolder.SubFolders

' Enumerate the collectiion

pEnum = pSubFolders.NewEnum_

DO

  pEnum.Next 1, vItem, celtFetched

  IF celtFetched = 0 THEN EXIT DO

  pSubFolder = vItem

  MSGBOX ACODE$(pSubFolder.Name)

LOOP

 

Valid XHTML 1.0 Transitional