FrontPage VBA教程:IsOpen属性

如果当前 WebFile对象是打开的,则为 True。只读,Boolean 类型。

VBA示例

本示例使用 IsOpen属性来检查文件是否打开。


Private Sub CheckForOpenFile()
    Dim myWeb As WebEx
    Dim myFiles As WebFiles
    Dim myFile As WebFile
    Dim myFileToOpen As String
    Dim myMessage As String
    Dim myFileName As String
    Set myWeb = ActiveWeb
    Set myFiles = myWeb.RootFolder.Files
    myFileToOpen = "index.htm"
    myMessage = "This file is open, try again later."
    With myWeb
        For Each myFile In myFiles
            If myFileName = myFileToOpen Then
                If myFile.IsOpen = True Then
                    MsgBox (myMessage)
                    Exit Sub
                Else
                    myFile.Open (fpPageViewNormal)
                    Exit Sub
                End If
            End If
        Next
    End With
End Sub

上页:FrontPage VBA教程:IsLinkBar属性 下页:FrontPage VBA教程:IsOrphan属性

FrontPage VBA教程:IsOpen属性

FrontPage VBA教程:IsOrphan属性 FrontPage VBA教程:IsReadable属性
FrontPage VBA教程:IsRoot属性 FrontPage VBA教程:IsUnderRevisionControl属性
FrontPage VBA教程:IsWeb属性 FrontPage VBA教程:IsWritable属性
FrontPage VBA教程:Item属性 FrontPage VBA教程:Label属性
FrontPage VBA教程:LanguageDesignation属性 FrontPage VBA教程:LanguageSettings属性
FrontPage VBA教程:lastModified属性 FrontPage VBA教程:linkColor属性
FrontPage VBA教程:links属性 FrontPage VBA教程:List属性
FrontPage VBA教程:Lists属性 FrontPage VBA教程:location属性
FrontPage VBA教程:LookupField属性 FrontPage VBA教程:MaximumValue属性
FrontPage VBA教程:MaxLength属性 FrontPage VBA教程:MetaTag属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号