Checkin 方法

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

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

expression  返回 WebFile 对象的表达式。

Comment  可选，String 类型。说明字符串。

KeepCheckedout  可选，Boolean 类型。保留文件为签出状态。默认值是 False。

注释

KeepCheckedout 参数提供当用户将文件签入 Microsofe Visual Source Safe 中以记录更改时，让该文件保持签出状态的功能。该功能不会应用于 FrontPage Light Weight 版本控制。

示例

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

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

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

Private Sub CheckinFile()
    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