AllFiles 属性


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


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


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


下列示例在 WebFiles 集合中搜索标题为 Main Page 的网页。如果找到该网页,则在 Microsoft FrontPage 中将其打开。

Sub FindFileTitle()
'Returns a collection of all files in the current web.

    Dim objApp As FrontPage.Application
    Dim objWebFile As WebFile
    Dim objWebFiles As WebFiles
    Set objApp = FrontPage.Application
    'Create a reference to the WebFiles collection
    Set objWebFiles = objApp.ActiveWeb.AllFiles

    'Check each file in the collection for the title Main Page
    For Each objWebFile In objWebFiles
       'If the title is found open the page in the editor.
       If objWebFile.Title = "Main Page" Then
          'Open page
       End If
    'If not found, check next file.
    Next objWebFile

End Sub