Public Shared Function IsFileOpen(ByVal Path As String) As Boolean
        Dim FileIsOpen As Boolean = False
        Dim sr As IO.StreamReader = Nothing
        If Not IO.File.Exists(Path) Then Return False
        Try
            sr = New IO.StreamReader(Path)
        Catch
            FileIsOpen = True
        Finally
            If Not (sr Is Nothing) Then sr.Close()
        End Try
        Return FileIsOpen
    End Function