将新 List 对象添加到 Lists 集合中。
expression.Add(Name, ParentFolder, ListType, Description)
expression 必选。返回 Lists 对象的表达式。
Name 必选。String 类型。代表新列表名称。
ParentFolder 可选。String 类型。代表与 List 关联的父文件夹。
ListType 可选。FpListType 常数。代表列表类型。
FpListType 可以是下列这些 FpListType 常数之一。 |
fpListTypeBasicList 默认 |
fpListTypeDocumentLibrary |
fpListTypeSurvey |
Description 可选。String 类型。代表 List 对象的说明。
将新 ListField 对象添加到 ListFields 集合中。
expression.Add(Name, Description, FieldType, Required, DefaultValue)
expression 必选。返回上述对象之一的表达式。
Name 必选。String 类型。代表域名称。
Description 可选。String 类型。代表域的说明。
DefaultValue 可选。Variant 类型。定义默认值。
FieldType 可选。FpFieldType 常数。代表新域类型。
FpFieldType 可以是下列这些 FpFieldType 常数之一。 |
fpFieldChoice |
fpFieldComputed |
fpFieldCounter |
fpFieldCurrency |
fpFieldDateTime |
fpFieldFile |
fpFieldInteger |
fpFieldLookup |
fpFieldMultiLine |
fpFieldNumber |
fpFieldSingleLine 默认 |
fpFieldTrueFalse |
fpFieldURL |
fpFieldUser |
Required 可选。Boolean 类型。确定域是否为必选域。如果此域必选,则为 True。
应用于 NavigationNodes 对象的 Add 方法。
将新文件添加到 NavigationNodes 集合中的可用项目列表。使用此方法可以在导航结构中添加新文件。有关使用导航节点的详细信息,请参阅 Web 对象的 RootNavigationNode 属性,或 NavigationNode 对象的 Children 属性。
expression.Add(Url, NodeLabel, ModificationType, LeftSibling)
expression 必选。返回 NavigationNodes 集合的表达式。
Url 必选,String 类型。包含要用于保存文件的 Web 服务器路径的字符串。该路径可以是任何绝对 URL,例如 http://web server 或 file://file system(对于基于磁盘的站点)。
NodeLabel 必选,String 类型。在“导航”视图中查看导航结构时用来标识 NavigationNode 对象的文本字符串。NodeLabel 参数仅用于辅助标识。
ModificationType 必选,FpStructModType 常数。节点修正类型。
FpStructModType 可以是下列这些 FpStructModType 常数之一。 |
fpStructBaseOnSibling 如果要在用左边同级参数指定的节点右边添加新节点,请使用此设置。 |
fpStructLeftmostChild 当前导航结构中最左边的节点。 |
fpStructRightmostChild 当前导航结构中最右边的节点。 |
LeftSibling 可选,Variant 类型。NavigationNodes 集合中的索引。它既可以是代表 URL 的字符串,也可以是代表集合中节点的数字。
在 Web 服务器上添加新文件(使用 WebFiles.Add 方法)并不表示会自动将文件引入导航结构中。必须单独为该文件创建一个 NavigationNode 对象。若要创建新的 NavigationNode 对象,请使用 NavigationNodes 集合的 Add 方法。
注意 使用模板创建新站点时,会自动为用模板添加到站点的文件创建导航节点。
将新 PageWindowsEx 对象添加到 PageWindows 集合中可用的打开项目列表。
注意 使用 PageWindowEx 对象的 Add 方法打开新的或现有的文件对象,也会将与该打开文件相关联的 PageWindowEx 对象添加到 PageWindows 集合中。
expression.Add(FileUrl)
expression 必选。返回 PageWindows 集合对象的表达式。
FileUrl 可选,String 类型。包含要用于保存文件的 Web 服务器路径的字符串。该路径可以是任何绝对的文件 URL,例如 http://web server/file 或 file://file system/file(对于基于磁盘的站点)。
若要在 Microsoft FrontPage 的“网页”视图中打开 HTML 网页,可以使用三种方法之一,即 Add、Edit 或 Open 方法。如果要在“网页”视图中打开、编辑,然后保存位于文件服务器或硬盘上文件系统中的文件,请使用 PageWindows 对象的 Add 方法,如下列语句所示。
注意 文件位于何处并不重要;它们可以位于硬盘、服务器或 FrontPage 站点上。
Dim myFile As String
myFile = "C:\Adventure Works HTML Files\Hiking.htm"
ActiveWeb.ActiveWebWindow.PageWindows.Add (myFile)
使用此方法,并没有将文件添加到基于 FrontPage 的站点中,而仅仅是打开了该文件。如果 myFile
是站点的一部分,并且该站点当前尚未打开,则 FrontPage 也会打开这个站点。
如果要打开并编辑位于某站点中的 HTML 文件,请使用根文件夹中 Files 集合的 Edit 方法,如下列语句所示。
ActiveWeb.RootFolder.Files("Hiking.htm").Edit
您可以以同样的方式来使用 Open 方式。然而,Open 方式应该用于打开非 HTML 文件,例如 Microsoft Word 文档,图像文件等等。
您也可以使用 Add 方法来打开新的未保存的 PageWindow 对象。您可以使用下列任一语句来打开未保存的网页窗口。
Set myUnsavedPageWindow = ActiveWebWindow.PageWindows.Add()
Set myUnsavedPageWindow = ActiveWebWindow.PageWindows.Add("")
注意 表达式 ActiveWebWindow.PageWindows.Add("C:\My Documents\My Webs\index.htm")
可以用作有效的表达式,只要 index.htm 是位于 My Webs 中的基于 FrontPage 的有效文件。然而,如果 index.htm 不在 My Webs 中,则此代码将会失败。若要添加新的网页,必须按照本节前面描述的过程进行操作。
将新属性添加到 Properties 集合中的可用项目列表。
expression.Add(PropertyKey, PropertyValue)
expression 必选。返回 Properties 集合的表达式。
PropertyKey 必选,String 类型。包含所要添加的属性名称的字符串。有关详细信息,请参阅 Properties 集合主题中的属性表。
PropertyValue 必选,Variant 类型。属性的值。
您可以用编程方式添加和删除 Properties 集合的类别以及审批等级。
将新 WebFile 对象添加到 WebFiles 集合中的可用项目列表。WebFile 对象没有限制,可以是任何类型的文件,而不是限制为 HTML 文件类型——它可以是图像文件、影片或可执行文件。
注意 使用此方法可以向基于 FrontPage 的站点添加新文件。
expression.Add(FileUrl, ForceOverwrite)
expression 必选。返回 WebFiles 集合的表达式。
FileUrl 必选,String 类型。包含文件(例如 Inventory. htm)URL 的字符串。该路径可以是任何绝对的文件 URL,例如 http://web server/file 或 file://file system/file(对于基于磁盘的站点)。
ForceOverwrite 可选,Boolean 类型。
通过 WebFiles 集合访问单个 WebFile 对象可以提供对 WebFile 对象的引用,此对象只有在站点文件打开时才可以访问 Page 对象模型。一旦文件打开,与该文件关联的 PageWindow 对象就能访问与 Microsoft Internet Explorer 4.0 和更高版本兼容的 Page 对象模型。有关使用 Web 页中 Page 对象模型的进一步信息,请参阅探索 FrontPage 中的对象模型。
将新 WebFolder 对象添加到 WebFolders 集合中的可用项目列表。
expression.Add(FolderUrl)
expression 必选。返回 WebFolders 集合的表达式。
FolderUrl 必选,String 类型。包含文件夹的 URL,例如 C:\My Webs 中的 Images 文件夹。该路径可以是任何绝对的文件夹 URL,例如 http://web server/folder 或 file://file system/folder(对于基于磁盘的站点)。
将新 WebWindowEx 对象添加到 WebWindows 集合中。
expression.Add(ViewModeEx)
expression 必选。返回 WebWindows 集合的表达式。
ViewModeEx 必选。FpWebViewModeEx 枚举常数。代表显示在新窗口中的信息。
FpWebViewModeEx 可以是下列这些 FpWebViewModeEx 常数之一。 |
fpWebViewExAllFiles |
fpWebViewExAssignedTo |
fpWebViewExBrokenLinks |
fpWebViewExBrowserTypes |
fpWebViewExCategories |
fpWebViewExCheckoutStatus |
fpWebViewExComponentErrors |
fpWebViewExDailyPageHits |
fpWebViewExDailySummary |
fpWebViewExFolders |
fpWebViewExLinks |
fpWebViewExMonthlyPageHits |
fpWebViewExMonthlySummary |
fpWebViewExNavigation |
fpWebViewExOlderFiles |
fpWebViewExOsTypes |
fpWebViewExPage |
fpWebViewExPublishStatus |
fpWebViewExRecentlyAddedFiles |
fpWebViewExRecentlyChangedFiles |
fpWebViewExReferringDomains |
fpWebViewExReferringURLs |
fpWebViewExReviewStatus |
fpWebViewExSearchStrings |
fpWebViewExSiteSummary |
fpWebViewExSlowPages |
fpWebViewExTodo |
fpWebViewExUnlinkedFiles |
fpWebViewExUsageSummary |
fpWebViewExVisitingUsers |
fpWebViewExWeeklyPageHits |
fpWebViewExWeeklySummary |
将新站点添加到 Webs 集合中的可用项目列表。
expression.Add(WebUrl, UserName, Password, WebOpenFlags)
expression 必选。返回 Webs 集合对象的表达式。
WebUrl 必选,String 类型。包含要用于保存站点的 Web 服务器路径的字符串。该路径可以是任何绝对的站点 URL,例如 http://web server 或 file://file system(对于基于磁盘的站点)。
UserName 可选,String 类型。用户登录到 Web 服务器所用的名称。
Password 可选,String 类型。用户登录到 Web 服务器所用的密码。
WebOpenFlags 可选。FpWebOpenFlags 常数。代表新 Web 的行为。
FpWebOpenFlags 可以是下列这些 FpWebOpenFlags 常数之一。 |
fpOpenInWindow 默认 |
fpOpenNoWindow |
此示例将一个称为 footnote.htm
的新节点添加到 NavigationNodes 集合中的项目列表。
注意 若要运行本示例,必须有一个称为“C:\My Documents\My Webs\Rogue Cellars”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”(对于在 Windows NT 上运行的服务器)的站点以及一个基于 FrontPage 的文件,文件名为 footnote.htm。或者,您也可以用另一个站点 URL 或文件来代替。
Private Sub AddNewNavNode()
Dim myHome As NavigationNode
Dim myNewNode As NavigationNode
Dim myFileUrl As String
myFileUrl = "C:\My Documents\My Webs\Rogue Cellars\footnote.htm"
Set myHome = ActiveWeb.HomeNavigationNode
Set myNewNode = _
myHome.Children.Add (myFileUrl, _
"Footnote", fpStructLeftmostChild)
ActiveWeb.ApplyNavigationStructure
End Sub
本示例将 Rogue Cellars 酿酒厂的 Inventory 网页添加到 PageWindows 集合中的项目列表中。当您使用 FileUrl 参数添加网页时,要添加的网页必须以文件形式存在,也就是说,不能使用此参数创建新的网页。若要创建未保存的新网页,请参阅 Add 方法中的说明。
注意 若要运行本示例,必须有一个称为“C:\My Documents\My Webs\Rogue Cellars”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”(对于在 Windows NT 上运行的服务器)的站点以及一个文件名为 Inventory.htm 的文件。或者,您也可以用另一个站点 URL 或文件来代替。
Private Sub AddPage()
Dim myPageWindows As PageWindows
Dim myPage As String
Set myPageWindows = ActiveWeb.ActiveWebWindow.PageWindows
myPage = "C:\My Documents\My Webs\Rogue Cellars\Inventory.htm"
myPageWindows.Add (myPage)
End Sub
本示例将新文件添加到 Properties 集合中的项目列表。
注意 若要运行本示例,必须有一个称为“C:\My Documents\My Webs\Rogue Cellars\Zinfandel.htm”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars\Zinfandel.htm”(对于在 Windows NT 上运行的服务器)的站点以及一个基于 FrontPage 的文件,文件名为 footnote.htm。或者,您也可以用另一个站点 URL 或文件来代替。
Private Sub CopyrightAdd()
Dim myWeb As WebEx
Dim myCopyright As String
Dim myCopyrightProperty As Variant
myCopyright = "Copyright 1999 by Rogue Cellars"
Set myWeb = Webs.Open("C:\My Webs\Rogue Cellers")
myWeb.Activate
ActiveWeb.Properties.Add "Copyright", myCopyright
ActiveWeb.RootFolder.Files("Zinfandel.htm").Open
ActiveDocument.body.insertAdjacentText "BeforeEnd", _
ActiveWeb.Properties("Copyright")
ActivePageWindow.Save
ActiveWeb.Close
End Sub
本示例将新项目添加到 Webs 集合的文件列表。
Webs.Add ("C:\My Documents\My Webs\Rogue Cellars")
本示例将新 WebFile 对象添加到 Files 集合中的项目列表。
ActiveWeb.RootFolder.Files.Add ("C:\New Web Files\Sales Statistics.htm")
本示例将文件夹添加到 WebFolders 集合中的项目列表。
ActiveWeb.RootFolder.Folders.Add ("Distribution Centers")