NavigationNodes Collection Object

Multiple objects NavigationNodes NavigationNode

A collection of NavigationNode objects within the navigation structure of a Microsoft FrontPage-based web. Each NavigationNode object represents a pointer to a page on a web. The NavigationNode object is a member of the NavigationNodes collection.

Using the NavigationNodes Object

Use the NavigationNode property to return the NavigationNode object for a WebFile object. For more information on returning the collection of child nodes within the navigation structure of a web, see the Children property. The following example builds a list of the navigation labels that are associated with each NavigationNode object in the NavigationNodes collection. The procedure exits when it reaches the end of the navigation structure.

Private Sub GetNavigationNode()
    Dim myWeb As WebEx
    Dim myWebFiles As WebFiles
    Dim myWebFile As WebFile
    Dim myNavNodeLabel As String
    Dim myLabel As String

    On Error Resume Next

    Set myWeb = ActiveWeb
    Set myFiles = myWeb.RootFolder.Files

    With myFiles
        For Each myFile In myFiles
            myLabel = myFile.NavigationNode.Label
            If Err <> 0 Then Exit Sub
            myNavNodeLabel = myNavNodeLabel & myLabel & vbCRLF
        Next
    End With
End Sub

Use Children(index), where index is the index number of an item in the collection of child nodes, to return a single NavigationNode object. The following example returns the first NavigationNode object in the collection—which is the Home page.

Set myNavNodeOne = ActiveWeb.RootNavigationNode.Children(0)

Use the Add method to add a NavigationNode object to the NavigationNodes collection. The following example adds a navigation node to the rightmost position in the current navigation structure.

Private Sub AddNewNavNode()
    Dim myWeb As WebEx
    Dim myNewNavNode As NavigationNode
    Dim myNavChildren As NavigationNodes

    Set myWeb = ActiveWeb
    Set myNavChildren = _
        myweb.rootfolder.Files(1).NavigationNode.Children
    myNewNavNode = _
        myNavChildren.Add("C:\My Webs\Sale.htm", "Sale", fpStructRightmostChild)
    myWeb.ApplyNavigationStructure
End Sub

Note   After you finish modifying your navigation structure, you must apply the changes using the ApplyNavigationStructure method before the navigation structure is updated in FrontPage.