SaveAs 方法

将指定的 PageWindowEx 对象写入目标 URL。

expression  返回 PageWindowEx 对象的表达式。

DestinationUrl  必选，String 类型。包含站点的完整 URL 的字符串，例如“C:\My Documents\My Webs\Adventure Works\index.htm”。此字符串可以是任何站点 URL，例如 http://web server/folder/file 或 file://file system/folder/file（对于基于硬盘的站点）。

ForceOverwrite  可选，Boolean 类型。默认值是 True。

示例

本示例将现有文件以新名称保存到另一个站点中。（不必更改文件名。）该程序首先激活容器站点，再打开文件，这样就为该文件建立了一个网页窗口。该网页窗口被分配给一个变量并以新名称保存到另一个站点中。

注意  C:\My Webs 文件夹中必须有一个名为 Zinfandel.htm 的文件，或者也可以更改程序中的文件名称来匹配站点中的现有文件。

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

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