返回 WebFiles 集合,该集合代表当前站点中的所有文件。
expression.AllFiles
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
objWebFile.Open
End If
'If not found, check next file.
Next objWebFile
End Sub