从现有文件夹创建新站点。若要创建新站点而不首先创建文件夹,请参阅 Add 方法。
expression.MakeWeb(UserName Passward)
expression 返回 WebFolder 对象的表达式。
UserName 可选,String 类型。用户的登录名。您可以使用该选项创建站点的默认用户名。
Passward 可选,String 类型。用户的密码。您可以使用该选项创建站点的默认密码。
本示例从现有的 Distributors 文件夹创建新站点。(Distributors 文件夹是 Rogue Cellars 站点中的文件夹。)
Private Sub MakeWeb()
Dim myWeb As WebEx
Dim myFolder As WebFolder
Set myWeb = Webs("C:\My Webs\Rogue Cellars")
myWeb.Activate
Set myFolder = Active.RootFolder.Folders("Distributors")
myFolder.MakeWeb
End Sub