Checkout 方法

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

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

expression  返回 WebFile 对象的表达式。

ForceCheckout  可选，Boolean 类型。强制签出（即使文件已经被签出）。默认值是 False。

注释

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

示例

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

• 从现有版本控制项目中签出文件并且把文件置于编辑模式。
  
• 在文档中添加欢迎消息。
  
• 检查打开的网页是否已被修改。
  
• 如果网页已被修改，则保存网页。
  
• 然后关闭该文件并且将其签入现有的版本控制项目。

注意  要运行本示例，必须在包含文件“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