FrontPage VBA教程:Checkout方法

将指定的 WebFile对象签出到版本控制项目。

注意  在使用本方法之前必须在适当的位置有版本控制项目。有关版本控制项目的信息,请参阅管理版本控制项目

expression.Checkout(ForceCheckout)

expression  返回 WebFile对象的表达式。

ForceCheckout  可选,Boolean 类型。强制签出(即使文件已经被签出)。默认值是 False。

注释

ForceCheckout参数为管理员提供了在不具备签入权限的用户签出文件的情况下执行强制签出的能力。

VBA示例

本示例中的程序执行下列步骤:

注意  要运行本示例,必须在包含文件“C:\My Document\My Webs\Rogue Cellars\Zinfandel.htm”(对于在 Microsoft Windows 上运行的服务器)或“C:\WINNT\Profiles\登录别名\Personal\My Webs\Rogue Cellars\Zinfandel.htm”(对于在 Windows NT 上运行的服务器)的站点的适当位置上有一个版本控制项目。或者,您可以用您所选择的站点和文件来代替。


Private Sub CheckoutFile()
    Dim myWeb As WebEx
    Dim myFile As WebFile
    Dim myPageWindow As PageWindowEx
    Dim myWelcome As String
    Set myWeb = Webs("C:/My Webs/Rogue Cellars")
    myWelcome = "Welcome to my Web Site!"
    Set myFile = myWeb.RootFolder.Files("Zinfandel.htm")
    myFile.Checkout
    Set myPageWindow = myFile.Edit(fpPageViewNormal)
    With myPageWindow
            myPageWindow.Document.body.insertAdjacentText("BeforeEnd", _
                myWelcome)
        If myPageWindow.IsDirty = True Then myPageWindow.Save
            .Close
    End With
    myFile.Checkin
End Sub

上页:FrontPage VBA教程:Checkin方法 下页:FrontPage VBA教程:clear方法

FrontPage VBA教程:Checkout方法

FrontPage VBA教程:clear方法 FrontPage VBA教程:Close方法
FrontPage VBA教程:commit方法 FrontPage VBA教程:Copy方法
FrontPage VBA教程:createElement方法 FrontPage VBA教程:createStyleSheet方法
FrontPage VBA教程:createStyleState方法 FrontPage VBA教程:createUndoTransaction方法
FrontPage VBA教程:Delete方法 FrontPage VBA教程:Edit方法
FrontPage VBA教程:elementFromPoint方法 FrontPage VBA教程:execCommand方法
FrontPage VBA教程:getBotAttribute方法 FrontPage VBA教程:LocateFile方法
FrontPage VBA教程:LocateFolder方法 FrontPage VBA教程:LocatePage方法
FrontPage VBA教程:MakeAbs方法 FrontPage VBA教程:MakeRel方法
FrontPage VBA教程:MakeWeb方法 FrontPage VBA教程:Move方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号