ISProfile.LoadExtracts

Description

This function returns the extracts loaded on the basis of the selected filter.

Syntax

object.LoadExtracts( [pFilter])

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`pFilter`	In, Optional	ISExtractsFilter	The object that defines conditions for filtering

Return Value

ISExtracts

Returns the extracts loaded on the basis of the selected filter.

Example

Display the number of the extracts loaded on the basis of the selected filter, their types and the text presentation.

Dim pFilter
Dim aExtracts
Dim aExtract
Dim aMessage

set pFilter = Profile.CreateExtractsFilter
pFilter.ForProvider = "ADMIN"
set aExtracts = Profile.LoadExtracts(pFilter)

aMessage = "Extracts Count = " & aExtracts.Count
for i = 0 to aExtracts.Count - 1
  set aExtract = aExtracts.Item(i)
  aMessage = aMessage & vbNewLine & aExtract.ExtractType & " " & aExtract.Line
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Extracts cannot be found.

Version information