ArchiveED

Remarks:

The "ArchiveED" object contains project information like the name, the source archive and other properties.

It is used within the editor in order to initialize the archive. Hence, the object won't be available in the runtime.
In the "Archive" object, which will be available in the runtime, some properties will be set to read-only.

→ Therefore all important initialization should be done by means of the "ArchiveED" object.

Properties:

Methods:

DynProperties:

Samples:

Sub zenOn_ArchiveED()
	'Declarations
	Dim zArchiveED As ArchiveED
	Dim zTimeConvert As clsTimeConvert
	Dim i As Integer

	'Initialize zArchiveED with the archive selected by the identification name "01"
	Set zArchiveED = MyWorkspace.ActiveDocument.ArchivesED.Item("01")
	'If no such archive is available ...
	If zArchiveED Is Nothing Then
		'... then create a whole new archive with the identification name "01" and the name "zenOn_ArchiveED"
		Set zArchiveED = MyWorkspace.ActiveDocument.ArchivesED.CreateArchive("01", "zenOn_ArchiveED", Nothing)
	End If

	'Initialize zTimeConvert by creating a new instance of the zenOn "clsTimeConvert" macro
	Set zTimeConvert = New clsTimeConvert

	With zArchiveED
		'Set the scanning mode: Cyclic scanning
		.DynProperties("Cyclic") = 1
		'Set the scanning cycle rate: 5 seconds
		.DynProperties("TimeGap") = 5
		'Set the offset: 0 seconds
		.DynProperties("Offset") = 0
		'Set the saving cycle: 60 seconds
		.DynProperties("Cycle") = 60
		'Set the start time of the cycle: 2007-07-30 12:00:00
		.DynProperties("CycleStart") = zTimeConvert.System2zenOn(CDbl(CDate("30.07.2007 12:00:00")))
		'Add the "WIZ_VAR_12" variable to the archive
		.AddVariable "WIZ_VAR_12", 0, Nothing
	End With

	'Output the configuration
	With zArchiveED
		'Output the identifier and the name
		Debug.Print "Name: " & .DynProperties("ShortName") & " - " & .DynProperties("LongName")
		'Output the scanning mode
		Debug.Print vbTab & "Cyclic: " & .DynProperties("Cyclic")
		'Output the scanning cycle
		Debug.Print vbTab & "Scanning cycle: " & .DynProperties("TimeGap") & " sec."
		'Output the offset
		Debug.Print vbTab & "Offset: " & .DynProperties("Offset") & " sec."
		'Output the archive saving cycle
		Debug.Print vbTab & "Save cycle: " & .DynProperties("Cycle") & " sec."
		'Output the start time of the cycle
		Debug.Print vbTab & "Cycle start: " & Format(zTimeConvert.zenOn2System(CDbl(.DynProperties("CycleStart"))), "yyyy-mm-dd hh:mm:ss")
	End With

End Sub