How to Create an Index on a Custom Property

Const adModeReadWrite = 3
Const adFailIfNotExists = -1
Const adCreateNonCollection = 0

Private Sub Main()
 Dim Conn
 Dim Info
 Dim InfoNT
 Dim sFolderURL
 Dim sSchemaFolderURL

 Set Info = CreateObject("ADSystemInfo")
 Set InfoNT = CreateObject("WinNTSystemInfo")

 ' Path of Virtual Root.
 sVrootURL = "http://" & InfoNT.ComputerName & "." & Info.DomainDNSName & "/public"

 ' Path to the application folder.
 sFolderURL = sVrootURL & "/myapp"

 ' Path to the schema folder.
 sSchemaFolderURL = sVrootURL & "/myapp/schema"

 'This example creates an index on custom properties.

' The following property definitions are created:
' urn:schemas-domain-tld:title
' urn:schemas-domain-tld:ingredients
'
' These properties are used in the ' urn:schemas-domain-tld:content-classes:recipe
' content class.
'
' A URN scheme is used for the namespace: "urn:schemas-domain-tld:"
' where "tld" refers to "top-level domain".


Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "ExOLEDB.DataSource"
Conn.Open sSchemaFolderURL

Dim Rec
Set Rec = CreateObject("ADODB.Record")

' Create the property definition in the schema folder for title.
' This property will be the indexed property; note that 
' urn:schemas-microsoft-com:exch-data:isindexed is set to True.
Rec.Open sSchemaFolderURL & "/title", Conn, adModeReadWrite, adCreateNonCollection
Set Flds = Rec.Fields
 With Flds
   .Item("DAV:contentclass") = "urn:content-classes:propertydef"
   .Item("urn:schemas-microsoft-com:xml-data#name") = "urn:schemas-domain-tld:title"
   .Item("urn:schemas-microsoft-com:datatypes#type") = "string"
   .Item("urn:schemas-microsoft-com:exch-data:ismultivalued") = False
   .Item("urn:schemas-microsoft-com:exch-data:isindexed") = True
   .Item("urn:schemas-microsoft-com:exch-data:isreadonly") = False
   .Update
  End With
 
 Rec.Close

 ' Create the property definition in the schema folder for ingredients.
 Rec.Open sSchemaFolderURL & "/ingredients", Conn, adModeReadWrite, adCreateNonCollection
 Set Flds = Rec.Fields
  With Flds
   .Item("DAV:contentclass") = "urn:content-classes:propertydef"
   .Item("urn:schemas-microsoft-com:xml-data#name") = "urn:schemas-domain-tld:ingredients"
   .Item("urn:schemas-microsoft-com:datatypes#type") = "string"
   .Item("urn:schemas-microsoft-com:exch-data:ismultivalued") = True
   .Item("urn:schemas-microsoft-com:exch-data:isindexed") = False
   .Item("urn:schemas-microsoft-com:exch-data:isreadonly") = False
   .Update
  End With
 Rec.Close

' Create the content class recipe.
Rec.Open sSchemaFolderURL & "/ccdef-recipe", Conn, adModeReadWrite, adCreateNonCollection

Set Flds = Rec.Fields
 With Flds
    ' Name the content class.
    .Item("urn:schemas-microsoft-com:xml-data#name").Value = _
     "urn:schemas-domain-tld:content-classes:recipe"
    ' The content class of the definition item.
    .Item("DAV:contentclass") = "urn:content-classes:contentclassdef"
    ' The content classes it extends (inherits from).
    .Item("urn:schemas-microsoft-com:xml-data#extends").Value = _
        Array("urn:content-classes:item")
    ' The additional properties that belong to this content class.
    .Item("urn:schemas-microsoft-com:xml-data#element").Value = _
    Array("urn:schemas-domain-tld:title", "urn:schemas-domain-tld:ingredients")
    .Update
 End With

Rec.Close
Conn.Close

' Set properties on the application folder.
Conn.Open sFolderURL

Rec.Open sFolderURL, Conn, adModeReadWrite

Set Flds = Rec.Fields
 With Flds
    .Item("urn:schemas-microsoft-com:exch-data:schema-collection-ref") = sSchemaFolderURL
    'Setting the expected content class for the application folder (myapp)
    .Item("urn:schemas-microsoft-com:exch-data:expected-content-class") = _
   Array("urn:schemas-domain-tld:content-classes:recipe")
    .Update
 End With
 
Rec.Close

' Set baseschema property on the schema folder.
Rec.Open sSchemaFolderURL, Conn, adModeReadWrite

Set Flds = Rec.Fields
 With Flds
    .Item("urn:schemas-microsoft-com:exch-data:baseschema") = Array(CStr("/public/non_ipm_subtree/Schema"))
    .Update
 End With
 
Rec.Close

' Create indexes on all properties that are defined in the folder�s expected content class.
Conn.Execute "CREATE INDEX * ON """ & sFolderURL & """ (*)"

' Create an item in the application folder using these custom properties.
Rec.Open sFolderURL & "/test1.txt", Conn, adModeReadWrite, adCreateNonCollection Or adCreateOverwrite

Set Flds = Rec.Fields
 With Flds
    .Item("urn:schemas-domain-tld:title").Value = "Title of Recipe"
    .Item("urn:schemas-domain-tld:ingredients").Value = Array("ingredient1", "ingredient2", "ingredient3")
    .Item("DAV:contentclass") = "urn:schemas-domain-tld:content-classes:recipe"
    .Update
End With

Rec.Close
Conn.Close

End Sub