返回 WebFolder 对象,该对象代表与列表相关联的文件夹。站点文件夹层次结构提供了指向 Web 服务器目录上的文件夹和文件的链接。导航结构提供了单个 Microsoft FrontPage 站点中的 Web 对象的基础结构。
expression.Folder
expression 必选。返回“应用于”列表中的对象之一的表达式。
下列示例显示与当前列表相关联的站点文件夹的名称。如果当前站点不包含列表,则向用户显示一条消息。
Sub ReturnFolder()
'Returns the folder associated with the List
Dim objApp As FrontPage.Application
Dim objFolder As WebFolder
Set objApp = FrontPage.Application
If Not objApp.ActiveWeb.Lists Is Nothing Then
Set objFolder = objApp.ActiveWeb.Lists(0).Folder
MsgBox "The name of the associated web folder is: " & _
objFolder.Name & "."
Else
MsgBox "The Active web contains no lists."
End If
End Sub