Microsoft Internet Security and Acceleration Server 2004 SDK

_NewEnum Property of IFPCContentTypeSet[C++]

FPCContentTypeSet._NewEnum [Visual Basic]

[C++]

The _NewEnum property gets an enumerator object for the collection. An enumerator object provides serial access to the elements of the collection.

HRESULT get__NewEnum(
  IUnknown* ppEnum
);

Parameters

ppEnum
Address of an interface pointer that on return points to the IUnknown interface of an enumerator object that implements an IEnumVARIANT interface for the collection. An interface pointer to the IEnumVARIANT interface of the enumerator object can be retrieved by calling QueryInterface on the IUnknown interface returned.

Return Values

This property method returns S_OK if the call is successful; otherwise, it returns an error code.

Remarks

This property is read-only.

[Visual Basic]

The _NewEnum property gets an enumerator object for the collection. An enumerator object provides serial access to the elements of the collection.

Property _NewEnum As IUnknown

Property Value

Reference to an enumerator object that provides serial access to the elements of the collection.

Remarks

This property is read-only.

In Visual Basic and VBScript, this property is used implicitly in For Each...In...Next constructs.

Example Code

This VBScript script displays all of the file types in a specific content type set. This example does not include error handling.

' Create the root object.
Dim root  ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")

' Declare the other objects needed and a string.
Dim array			' An FPCArray object
Dim contenttypesets  ' An FPCContentTypeSets collection
Dim contenttypeset   ' An FPCContentTypeSet collection
Dim contenttype	' A string

' Get references to the array object 
' and the content type sets collection.
Set array = root.GetContainingArray()
Set contenttypesets = array.RuleElements.ContentTypeSets

' If at least one content type set is defined in the content 
' type sets collection, display the file types in the first
' content type set found.
On Error Resume Next
Set contenttypeset = contenttypesets.Item(1)
If Err.Number = 0 Then
	For Each contenttype In contenttypeset
		WScript.Echo "Content type: " & contenttype 
	Next
End If

Requirements

Server: Requires Windows Server 2003 or Windows 2000.
Version: Requires Internet Security and Acceleration Server 2004.
Header: Declared in Msfpccom.idl.
Library: Use Microsoft Internet Security and Acceleration Server 2004 Administration Library.

See Also

FPCContentTypeSet