MakeWeb 方法

       

从现有文件夹创建新站点。若要创建新站点而不首先创建文件夹,请参阅 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