This function creates the filter for loading providers.
object.CreateProvidersFilter()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the number of the providers loaded on the basis of the selected filter and their full names.
Dim aFilter
Dim aProviders
Dim aProvider
Dim aMessage
Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider
set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine & "Providers Count = " &_
aProviders.Count & vbNewLine
for each aProvider in aProviders
aMessage = aMessage & vbNewLine & aProvider.FullName
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Providers can be found in
.