ApplyChanges Method Example

This example changes the value of the vti_title property for a file called Zinfandel.htm and applies the change.

Private Sub ChangeProperties()
Dim myProperties As Properties

Set myProperties = _
    ActiveWeb.RootFolder.Files("Zinfandel.htm").Properties
myProperties("vti_title") = "Rogue Cellars Wine List"
myProperties.ApplyChanges
End Sub