vb.net - 无法从文件夹中删除 ReadOnly 属性

Question

我正在尝试删除目录的只读属性，但我做不到。

  Private _attributes As FileAttributes = FileAttributes.Normal

  Private Sub RemoveReadOnlyDirectoryAttributes(ByVal path As String)
        'Check root folder
        Dim di As New DirectoryInfo(path)
        di.Attributes = _attributes

        'Check sub folders
        For Each folder As String In Directory.GetDirectories(path, "*", SearchOption.AllDirectories)
            di = New DirectoryInfo(folder)
            di.Attributes = _attributes
        Next

    End Sub

我原以为这段代码会将属性更新为正常。

但是，当我右键单击我看到的目录时

我还在这里看到了关于 SO 的帖子，他们应用了类似于

    Dim di As New DirectoryInfo(path)
    di.Attributes =  di.attributes And Not FileAttributes.ReadOnly

但这也无济于事。

我是机器的管理员。