Copy 方法

将指定对象复制到目标 URL。在复制过程中，可以选择更新超链接，或者如果指定对象与目标对象有相同的名称可以选择强行覆盖文件。

expression  返回 WebFile 或 WebFolder 对象的表达式。

DestinationUrl  必选，String 类型。目标 URL。

UpdateLinks  可选，Boolean 类型。指定在复制过程中是否更新链接。使用 True（默认值）则更新链接。

ForceOverwrite  可选，Boolean 类型。指定在发现同名的文件或文件夹时是否强制覆盖文件。将参数设置为 True 可强制执行文件覆盖。默认值为 False。

注释

Copy 方法仅在同一站点内复制文件或文件夹。无法跨站点进行复制。然而，您可对 PageWindowEx 对象使用 SaveAs 方法保存文件当前位于某站点的页面，再将该页面保存至位于另一个站点中的文件中。或者，对于 WebFile 对象，可使用 Add 方法将当前位于某站点的文件添加到另一个站点。

示例

本示例将一文件从 Rogue Cellars 站点文件夹复制到同一个站点的 Inventory 文件夹。

注意  要运行本示例，必须有一个称为“C:\My Documents\My Webs\Rogue Cellars”（对于在 Microsoft Windows 上运行的服务器）或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”（对于在 Windows NT 上运行的服务器）的站点。

Private Sub FileCopy()
    Dim myFile As WebFile

    Set myFile = ActiveWeb.RootFolder.Files("Zinfandel.htm")
    myFile.Copy "C:\My Webs\Rogue Cellars\Inventory\Zinfandel.htm"
End Sub