FrontPage VBA教程:WebFolder对象

   
多个对象
WebFolder
多个对象

代表基于 Microsoft FrontPage 的站点中的文件夹。WebFolder对象是WebFolders集合的成员。

注意  Folder对象是指向 WebFolder对象的指针。

WebFolders集合代表指定站点中的所有文件夹。在 WebFolders集合中,各 WebFolder对象的索引从零开始。WebFolder对象类似于基于目录的层次结构中的文件夹;但是 WebFolder对象和 Web对象之间的关系是唯一的。FrontPage 提供了在 Web 服务器上创建多个 WebEx对象的功能。任何 WebFolder都可以代表一个 Web 站点,但并不是每个 WebFolder 都必须代表 Web 站点。站点文件夹层次结构提供了指向 Web 服务器目录中的文件夹和文件的链接。导航结构为基于 FrontPage 的各站点中的 Web对象提供了基础结构。

使用 WebFolder对象

使用 WebFolders(index) 可以返回单个 WebFolder对象,其中 index 是站点文件夹项目的属性关键字。下列示例返回 WebFolders集合中第一个站点文件夹项目的文件名。


ActiveDocument.WebFolders(0).Name

使用集合属性(例如 Files、Folders、Properties)可以返回指定项目的集合对象。下列语句返回活动站点集合中的第一个指定项目。


myFileOne = ActiveWeb.RootFolder.Files(0)
myFolderOne = ActiveWeb.RootFolder.Folders(0)
myPropertyOne = ActiveWeb.Properties("vti_author")

使用 IsExecutable、IsReadable、IsRoot 之类的属性可以检查文件夹的指定状态。如果要执行 CGI 脚本,则可以将该脚本添加到文件夹中并将该文件夹的 IsExecutable属性设为 True。如果希望别人可以浏览文件夹中的内容,则可以将 IsReadable属性设为 True。如果要检查当前文件夹是否为根文件夹,则可以使用 IsRoot属性。下列示例检查当前 WebFolder对象中的文件是否可执行、是否只读或是否位于根文件夹中。


Private Sub GetFolderInfo()
    Dim myWeb As WebEx
    Dim myFolder As WebFolder
    Dim myIsExe As Boolean
    Dim myIsReadable As Boolean
    Dim myIsRoot As Boolean
    Set myWeb = ActiveWeb
    Set myFolder = myWeb.RootFolder.Folders(1)
    With myFolder
        myIsExe = .IsExecutable
        myIsReadable = .IsReadable
        myIsRoot = .IsRoot
    End With
End Sub

IsExecutable、IsReadable 和 IsWriteable属性返回有关文件夹状态的信息。下列示例说明如何设置 IsExecutable 和 IsReadable属性以及如何读取 IsWriteable属性。

注意  您不能设置 IsWriteable属性,但可以设置 WebFolder对象的 IsExecutable 和 IsReadable属性。


Sub FolderProperties ()
Dim myFolder As WebFolder
Set myFolder = ActiveWeb.RootFolder.Folders(0)
If myFolder.IsWritable Then
    MsgBox "Folder, " & myFolder.Url & " is writable"
End If
If Not(myFolder.IsReadable) Then
    MyFolder.IsReadable = True
End If
If myFolder.IsExecutable Then
    MyFolder.IsExecutable = False
End If
End Sub

FrontPage 中的 Folders(或 WebFolders)有两种用途。它们既可以是帮助管理站点内容的文件夹,也可以是站点。站点下可以有多个子站点。如果查询的文件夹是站点,则IsWeb属性返回True。下列示例使用IsWeb属性来确定文件夹是否为站点,如果是就打开它。

注意  若要运行本示例,必须有一个称为“C:\My Documents\My Webs\Rogue Cellars”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”(对于在 Windows NT 上运行的服务器)的站点。这两种情况下,都可以用另一个站点 URL 来代替。


Private Sub CheckFolder()
    Dim myFolder As WebFolder
    Set myFolder = ActiveWeb.RootFolder.Folders("Rogue Cellars")
    If myFolder.IsWeb = True Then
        Webs.Open myFolder.Url
    End If
End Sub

使用 Url属性可以返回当前 WebFolder对象的 URL。下列语句返回活动站点中第八个文件夹的绝对 URL。


myUrl = ActiveWeb.RootFolder.Folders(7).Url

使用 Copy、Delete、Move方法可以维护站点结构。下列语句将 WebFolder对象从一个文件夹复制到另一个文件夹,在复制过程中更新链接,如果文件已经存在则强制覆盖。


myFolder.Copy("C:\My Webs\New Adventure Products", True, True)

上页:FrontPage VBA教程:WebFiles集合对象 下页:FrontPage VBA教程:WebFolders对象集合

FrontPage VBA教程:WebFolder对象

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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号