ApplyNavigationStructure Method Example

This example adds a navigation node as the rightmost child node and then applies the changes to the navigation structure.

Private Sub AddNewNavNode()
Dim myWeb As Web
Dim myChildNodes As NavigationNodes
Dim myNewNavNode As NavigationNode

Set myWeb = ActiveWeb
Set myChildNodes = _
 myWeb.RootFolder.Files(1).NavigationNode.Children

myNewNavNode = _
 myChildNodes.Add(myWeb.Url & "Sale.htm", "Sale", _
    fpStructRightmostChild)
myWeb.ApplyNavigationStructure
End Sub