Public Function RemoveWriteProtection(ByVal sFile As String) As Boolean
        Dim bResult As Boolean = True
 
        If Not My.Computer.FileSystem.FileExists(sFile) Then Return (False)
 
        ' aktuell gesetzte Datei-Attribute ermitteln
        Dim oInfo As New FileInfo(sFile)
        With oInfo
            Try
                If .Attributes And FileAttributes.ReadOnly Then
                    ' Datei ist schreibgeschützt
                    ' Jetzt Schreibschutz-Attribut entfernen
                    .Attributes = .Attributes Xor FileAttributes.ReadOnly
                End If
            Catch
                ' Fehler beim Lesen/Setzen der Datei-Attribute
                bResult = False
            End Try
        End With
        Return bResult
    End Function