MakeWeb Method Example

This example creates a new web from the existing Distributors folder. (The Distributors folder is a folder in the Rogue Cellars web.)

Private Sub MakeWeb()
Dim myWeb As Web
Dim myFolder As WebFolder

Set myWeb = Webs("C:\My Webs\Rogue Cellars")
myWeb.Activate
Set myFolder = Active.RootFolder.Folders("Distributors")
myFolder.MakeWeb
End Sub