NewEnum_ Method

 

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 pFiles AS IFileCollection

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:\MyFolder"))

' Get a reference to the IFileCollection interface

pFiles = pFolder.Files

' Enumerate the collectiion

pEnum = pFiles.NewEnum_

DO

  pEnum.Next 1, vItem, celtFetched

  IF celtFetched = 0 THEN EXIT DO

  pFile = vItem

  MSGBOX ACODE$(pFile.Name)

LOOP

 

Valid XHTML 1.0 Transitional