SaveAs Method

Writes the specified page object to the destination URL.

expression.SaveAs(DestinationUrl, ForceOverwrite)

expression    An expression that returns a PageWindowEx object.

DestinationUrl    Required String. A string that contains the entire URL for the Web site, such as “C:\My Documents\My Web Sites\Adventure Works\index.htm”. This can be any URL for a Web site, such as http://web server   /folder   /file    or file://file system   /folder   /file    for disk-based Web sites.

ForceOverwrite    Optional Boolean. False to not save over an existing file. The default value is True.

Example

The following example saves an existing file to another Web site under a new name. (It isn't necessary to change the name of the file.) The program first activates the container Web site, and then it opens the file and saves it to a different Web site with a new name.

Note  You must have a file named Zinfandel.htm in the C:\My Web Sites folder, or change the name of the file in the program to match an existing file in your Web site.

    Private Sub SaveAsNewFile()
    Dim myFile As WebFile
    Dim myPageWindow As PageWindowEx

    Webs("C:\My Web Sites").Activate
    Set myFile = ActiveWeb.RootFolder.Files("Zinfandel.htm")
    myFile.Open
    Set myPageWindow = ActivePageWindow
    myPageWindow.SaveAs ("C:\My Web Sites\Rogue Cellars\Zinfandel Sale.htm")
    myPageWindow.Close
End Sub