Count Method

 

Description

 

Returns the number of members in the environment variables collection.

 

PowerBASIC Syntax

 

METHOD Count () AS LONG

 

Return Value

 

LONG. The number of members in the collection.

 

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

 

Valid XHTML 1.0 Transitional