The following example illustrates use of the
NewEnum_ method.
#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