ArchiveFilterVariable

Remarks:

The "ArchiveFilterVariable" object contains the filtered archive variable for the "ArchiveFilter" object.

Properties:

Methods:

Samples:

Sub zenOn_ArchiveFilterVariable(ByRef zArvFilter As ArchiveFilter)
	'Declarations
	Dim zArvFilterVar As ArchiveFilterVariable
	Dim i As Integer

	'Initialize zArvFilterVar with the first available filtered archive variable
	Set zArvFilterVar = zArvFilter.ArchiveFilterVariables.Item(0)

	'If no filtered archive variable is available ...
	'HINT: Filtered archive variables are only availabe after a archive filter query was initiated
	If zArvFilterVar Is Nothing Then
		'... then inform the user
		MsgBox ("No filtered archive variable available!")

	'Otherwise, output some details
	Else
		'Output the variable name
		Debug.Print "Variable: " & zArvFilterVar.ArchiveVariable.Name
	
		With zArvFilterVar.ArchiveValues
			'For every archive value within "zArvFilterVar" ...
			For i = 0 To .Count - 1
				'... output the recorded value
				Debug.Print vbTab & i + 1 & ".Value: " & .Item(i).Value
			Next i
		End With
	End If
End Sub