Function Rechteabfrage() As Boolean
        Try
            Dim Reader As System.IO.StreamReader
            Reader = New System.IO.StreamReader(Pfad)
            Reader.Close()
            Reader = Nothing
            Return True
        Catch ex As UnauthorizedAccessException
            MsgBox("Sie haben auf " & Pfad & " keine Zugriffsberechtigung")
            Return False
        Catch ex2 As System.IO.FileNotFoundException
            Return False
        End Try
    End Function

Tadle nie den Fluss in den du f?llst!