将指定的 WebFile 对象签出到版本控制项目。
注意 在使用本方法之前必须在适当的位置有版本控制项目。有关版本控制项目的信息,请参阅管理版本控制项目。
expression.Checkout(ForceCheckout)
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