FrontPage VBA教程:Checkin方法

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

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

expression.Checkin(Comment, KeepCheckedout)

expression  返回 WebFile对象的表达式。

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

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

注释

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

VBA示例

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

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

上页:FrontPage VBA教程:CancelRequests方法 下页:FrontPage VBA教程:Checkout方法

FrontPage VBA教程:Checkin方法

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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号