将更改应用到指定对象。对 WebEx、WebFile 或 WebFolder 对象属性所做的更改,必须在对指定对象使用 ApplyChanges 方法后才会应用。
expression.ApplyChanges
expression 返回 properties 对象的表达式。
本示例会更改 Zinfandel.htm 文件的 vti_title 属性值,并应用所做更改。
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