FrontPage VBA教程:AllFolders属性

返回WebFolders集合,该集合代表当前站点中的所有文件夹。

expression.AllFolders

expression  必选。返回“应用于”列表中的对象之一的表达式。

说明

WebFolders集合返回集合中的所有文件夹,而不管其在站点层次结构中的位置。

VBA示例

下列示例在 WebFolders集合中搜索名为“Folder1”的文件夹。如果找到该文件夹,则该示例接着搜索标题为 Main Page 的文件。如果找到该标题,则在 Microsoft FrontPage 中将该文件打开。


Sub WebFoldersFind()
'Returns a collection of all files in the current web.
    Dim objApp As FrontPage.Application
    Dim objWebFolder As WebFolder
    Dim objWebFolders As WebFolders
    Set objApp = FrontPage.Application
    'Create a reference to the WebFolders collection.
    Set objWebFolders = objApp.ActiveWeb.AllFolders
    'Check each folder in the collection for the name "Folder1"
    For Each objWebFolder In objWebFolders
       'If the name is found then
       If objWebFolder.Name = "Folder1" Then
          'If found then search through folder
          For i = 1 To objWebFolder.Files.Count
              'Search for a file with the title Main Page
              If objWebFolder.Files.Item(i).Title = "Main Page" Then
                  'Open file.
                  objWebFolder.Files.Item(i).Open
              End If
          Next i
       End If
    'If not found check next file.
    Next objWebFolder
End Sub

上页:FrontPage VBA教程:AllFiles属性 下页:FrontPage VBA教程:AllNavigationNodes属性

FrontPage VBA教程:AllFolders属性

FrontPage VBA教程:AllNavigationNodes属性 FrontPage VBA教程:AllowMultipleResponses属性
FrontPage VBA教程:AllowsLongFilenames属性 FrontPage VBA教程:anchors属性
FrontPage VBA教程:AnswerWizard属性 FrontPage VBA教程:applets属性
FrontPage VBA教程:Application属性 FrontPage VBA教程:Assistant属性
FrontPage VBA教程:bgColor属性 FrontPage VBA教程:body属性
FrontPage VBA教程:Build属性 FrontPage VBA教程:Caption属性
FrontPage VBA教程:CheckoutBy属性 FrontPage VBA教程:Children属性
FrontPage VBA教程:Choices属性 FrontPage VBA教程:COMAddIns属性
FrontPage VBA教程:CommandBars属性 FrontPage VBA教程:ConnectionSpeed属性
FrontPage VBA教程:Count属性 FrontPage VBA教程:Creator属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号