Public Function IsFileOpen(ByVal file As String) As Boolean
        If IO.File.Exists(file) Then
            Try
                Using New IO.FileStream(file, IO.FileMode.Open, _
                  IO.FileAccess.ReadWrite, IO.FileShare.None)
                End Using
            Catch
                Return True
            End Try
        End If
        Return False
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist