Public Function FileIsOpen(ByVal file As String) As Boolean
        Dim fs As IO.FileStream = Nothing
        Try
            If Not IO.File.Exists(file) Then Return False
            fs = IO.File.OpenWrite(file)
            Return False
        Catch
            Return True
        Finally
            If Not (fs Is Nothing) Then
                fs.Close()
            End If
        End Try
    End Function