Example for Extracting Metadata

The following example extracts metadata into an XML file. Note that application settings are not extracted.

Dim cMetadataLoadACV As HsvMetadataLoadACV
Dim cOptions As IHsvLoadExtractOptions
Dim cOpt As IHsvLoadExtractOption
Set cMetadataLoadACV = New HsvMetadataLoadACV
'Specify the HsvSession object for the application.
cMetadataLoadACV.SetSession g_cHsvSession
'Initialize the IHsvLoadExtractOptions interface.
Set cOptions = cMetadataLoadACV.ExtractOptions
'Exclude application settings
Set cOpt = cOptions.Item(HSV_METAEXTRACT_OPT_APP_SETTINGS)
cOpt.CurrentValue = False
'Extract as an XML file
Set cOpt = cOptions.Item(HSV_METAEXTRACT_OPT_FILE_FORMAT)
cOpt.CurrentValue = HSV_METALOADEX_FORMAT_XML
'Extract the Metadata
cMetadataLoadACV.Extract "c:\Acme\myApp.xml", _
  "c:\Acme\myApp.log"