FrontPage VBA教程: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

上页:FrontPage VBA教程:WebFolder对象 下页:FrontPage VBA教程:Webs集合对象

FrontPage VBA教程:WebFolders对象集合

FrontPage VBA教程:Webs集合对象 FrontPage VBA教程:WebWindowEx对象
FrontPage VBA教程:WebWindows集合对象 FrontPage VBA教程:ActiveDocument属性
FrontPage VBA教程:activeElement属性 FrontPage VBA教程:ActiveFrameWindow属性
FrontPage VBA教程:ActivePageWindow属性 FrontPage VBA教程:ActiveWeb属性
FrontPage VBA教程:ActiveWebWindow属性 FrontPage VBA教程:alinkColor属性
FrontPage VBA教程:all属性 FrontPage VBA教程:AllFiles属性
FrontPage VBA教程:AllFolders属性 FrontPage VBA教程:AllNavigationNodes属性
FrontPage VBA教程:AllowMultipleResponses属性 FrontPage VBA教程:AllowsLongFilenames属性
FrontPage VBA教程:anchors属性 FrontPage VBA教程:AnswerWizard属性
FrontPage VBA教程:applets属性 FrontPage VBA教程:Application属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号