FileSaveForm 属性

返回或设置 String 类型的值，该值代表保存文件时所显示的表单网页的相对 URL。可读写。

expression  必选。返回 DocumentLibrary 对象的表达式。

示例

下列示例创建名为 NewLibrary 的新文档库，并显示与将文件保存到库中相关的网页的相对 URL。

Sub NewLibrary()
'Adds a new list to the current web

    Dim objApp As FrontPage.Application
    Dim objLists As Lists
    Dim objLibrary As DocumentLibrary

    Set objApp = FrontPage.Application
    Set objLists = objApp.ActiveWeb.Lists
    'Add new list
    objLists.Add Name:="NewLibrary", _
                 ListType:=fpListTypeDocumentLibrary, _
                 Description:="List of Shared files"
    Set objLibrary = objLists.Item("NewLibrary")

    'Display message to user
    MsgBox "A new list was added to the Lists collection." & _
           "The URL of the page associated with the Save dialog is " & _
            objLibrary.FileSaveForm & "."

End Sub