''' <summary>
    ''' Prueft ob die Datei noch im Zugriff ist
    ''' </summary>
    ''' <param name="fileName"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function IsFileOpen(ByVal fileName As String) As Boolean
        Try
            If File.Exists(fileName) Then
                Dim stream As FileStream = File.Open(fileName, FileMode.Open, _
                  FileAccess.Read, FileShare.None)
                stream.Dispose()
            End If
            Return False
        Catch ex As IOException
            ex = Nothing
            Return True
        End Try
    End Function

                While IsFileOpen(e.FullPath) = True
                    Threading.Thread.Sleep(100)
                End While