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

    Public Function RemoveWriteProtection(ByVal sFile As String) As Boolean
        Dim oInfo As New IO.FileInfo(sFile)
        If oInfo.Exists Then
            Try
                If (oInfo.Attributes And IO.FileAttributes.ReadOnly) = _
                  IO.FileAttributes.ReadOnly Then
                    oInfo.Attributes = oInfo.Attributes Xor _
                    IO.FileAttributes.ReadOnly
                    Return True
                End If
            Catch
            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

________
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

Imports System
Imports System.IO
Imports System.IO.File
Imports System.Text