WebFolders 对象集合

多个对象 WebFolders WebFolder

WebFolder 对象的集合。WebFolders 集合中的每个 WebFolder 对象都代表站点中一个打开的文件夹。WebFolder 对象是 WebFolders 集合的成员。

注意  所有有关更改文件夹位置的方法（例如 Copy 或 Move）都只能在当前站点内进行更改，您无法将文件夹从当前站点移至另一个站点。

使用 WebFolders 对象

使用 WebFolders(index) 可以返回单个 WebFolder 对象，其中 index 是 WebFolders 集合中某个项目的索引号。下列语句返回集合中的第一个 WebFolder 对象。

Set myFolder = ActiveWeb.RootFolder.Folders(0)

使用 Add 方法可以将新 WebFolder 对象添加到站点的 WebFolders 集合中。下列两个语句都可以将 WebFolder 添加到活动站点中的 WebFolders 集合，文件夹名称不一定要用圆括号括起，如第二个语句所示。

注意  引号中的 FolderUrl 参数 ("Rogue Cellars") 中应该只包括新文件夹的名称，而非完整的 URL，除非要将新 URL 添加到 FolderUrl 指定的位置。如果作为参数的完整 URL 已经存在，则本程序会失败。

ActiveWeb.RootFolder.Folders.Add ("Rogue Cellars")
ActiveWeb.RootFolder.Folders.Add "Rogue Cellars"

使用 Count 属性可以返回 WebFolders 集合中所有导航节点的数目。下列语句返回 Rogue Cellars 站点中的站点数目。

Webs("C:\Web Server One\Rogue Cellars").Folders.Count

使用 Delete 方法可以从 WebFolders 集合中删除 WebFolder 对象。下列语句删除第十个 WebFolder 对象。第二个语句使用文件夹的名称代替索引号来指定要删除的文件夹。

ActiveWeb.RootFolder.Folders(9).Delete
ActiveWeb.RootFolder.Folders("TempFolder").Delete

使用 Copy 方法可以复制 WebFolder 对象。下列示例将文件夹 (WebFolders(4)) 复制到活动站点上的另一文件夹 (Chardonnay Inventory)。本示例中，WebFolders(4) 是 Rogue Cellars 站点中一个名为 Inventory 的文件夹。此文件夹包含了所有葡萄酒存货清单，但站点的设计者想突出 Chardonnay 葡萄酒的销售情况，所以创建并编辑了一个只包含 Chardonnay 葡萄酒的临时文件夹。

Private Sub CopyInventory()
    Dim myFolder As WebFolder

    Set myFolder = ActiveWeb.RootFolder.Folders(4)

    myFolder.Copy ("C:\Rogue Cellars\Chardonnay Inventory, False, True)
End Sub

使用 Move 方法可以将文件夹从站点中的一个位置移到另一个位置。例如，如果您有一些旧的广告网页，想要保留以用于下个季度的销售，则可以将其移动到另一个文件夹，如下列示例所示。

Private Sub MoveOldAds()
    Dim myOldAds As WebFolder

    Set myOldAds = Webs(0).RootFolder.Folders(1)

    myOldAds.Move("C:\Rogue Cellars\FirstQtr Advertising", True, True)
End Sub

若要返回 WebFolders 集合的容器，请使用 Parent 属性。下列语句返回第四个文件夹的容器。

myParent = Webs.RootFolder.Folders(3).Parent