关于VB修改文件夹权限

2006-12-30 10:52:28 287 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

子窗体和父窗体双向传值——C#窗体传值方法总结简介　　在很多场景下，我们的程序需要完成窗体间的传值功能，有时候是父窗体→子窗体单向传值、子窗体→父窗体传值甚至是，也有时候我们需要父窗体⇆子窗体双向传值。　　在本文中主要介绍一些能够实现双向传值的方法，能够双向传值的方法也能够实现单向传值。　　本文的所有源码都可以在GitHub上下载。　　　　本文介绍的方法仅限于我自己知道并且实现过的，我相信还有很多我并不知道的方法，因此也许在很多阅读详情

Dim NewAce As New AccessControlEntry
Dim sdUtil As New ADsSecurityUtility
Dim sd As IADsSecurityDescriptor
Dim acl As IADsAccessControlList

Private Sub Command1_Click()
Set sd = sdUtil.GetSecurityDescriptor("e:\test", ADS_PATH_FILE, ADS_SD_FORMAT_IID)
Set acl = sd.DiscretionaryAcl
NewAce.AccessMask = 2032127 'Full Permission (Allowed)
NewAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED
NewAce.AceFlags = ADS_ACEFLAG_INHERIT_ACE
NewAce.Trustee = "vsonchow"
acl.AddAce NewAce
sd.DiscretionaryAcl = acl
Call sdUtil.SetSecurityDescriptor("e:\test", ADS_PATH_FILE, sd, ADS_SD_FORMAT_IID)
End Sub

这样是可以设置权限的，但是文件夹只有‘列出文件夹目录‘，我想要写入与读取两个选项。NewAce.AccessMask =-1也不行。高手帮帮忙。

...全文