将指定的 PageWindowEx 对象写入目标 URL。
expression.SaveAs(DestinationUrl, ForceOverwrite)
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