IsOpen Property

True if the active WebFile object is open. Read-only Boolean.

Example

This example uses the IsOpen property to check if a file is open.

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