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