IsOpen Property Example

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

Private Sub CheckForOpenFile()
Dim myWeb As Web
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