RevisionControlProject Property Example

This example sets the RevisionControlProject property in a Microsoft Visual SourceSafe project.

Private Sub SetRevisionControlProjectName()
Dim myWeb As Web
Dim myRevisionControlProject As String

Set myWeb = ActiveWeb
myRevisionControlProject = _
    "$/Rogue Cellars/Rogue Cellars Update"

myWeb.RevisionControlProject = _
    myRevisionControlProject
End Sub