FP2000: How to Create a One-Page Web Using Visual Basic for Applications

    
Sub CreateWeb()

    'Set up variables
    Dim myWeb As FrontPage.Web
    Dim myFPApp As FrontPage.Application
    
    'Create a new FrontPage application object
    Set myFPApp = CreateObject("FrontPage.Application")
    
    '*******************************************************************
    '* In the following line of code, replace "mySite" with the name
    '* of the web server on which you want to create your web and replace
    '* "myWeb" with the name for your new web.
    '*
    '* You can also replace "http://mySite/myWeb" with a local disk
    '* path (such as "c:\myWebs\myNewWeb") to create a disk-based web.
    '*******************************************************************
    
    'Create the web
    Set myWeb = myFPApp.Webs.Add("http://mySite/myWeb")
    
    'Add a home page and home navigation node
    myWeb.RootFolder.Files.Add myWeb.Properties("vti_welcomenames")(0)
    
End Sub