Properties Property

  • Article

Returns a Properties collection that represents the properties for the specified object.

expression.Properties

*expression   * Required. An expression that returns one of the objects in the Applies To list.

Example

The following example adds a new property and displays it on the active Web page.

Note  To run this example, you must have a Web site called "C:\My Documents\My Web Sites\Rogue Cellars" and a file called "Zinfandel.htm". Or, you may substitute an alternative Web site URL and file name.

Private Sub CopyrightAdd()
    Dim myWeb As WebEx
    Dim myCopyright As String

    myCopyright = "Copyright 1999 by Rogue Cellars"
    Set myWeb = Webs.Open("C:\My Documents\My Web Sites\Rogue Cellars")
    myWeb.Activate
    ActiveWeb.Properties.Add "Copyright", myCopyright
    ActiveWeb.RootFolder.Files("Zinfandel.htm").Open
    ActiveDocument.body.insertAdjacentText "BeforeEnd", _
         ActiveWeb.Properties("Copyright")
    ActivePageWindow.Save
    ActiveWeb.Close
End Sub

Applies to | WebEx Object | WebFile Object | WebFolder Object