关于VB修改文件夹权限

[VsonChow]

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也不行。高手帮帮忙。

[pzlk]

http://www.newasp.net/code/vb/8379.html
这里有个例子

[VsonChow]

这个看过了，不行，修改后不是标准的权限分配。继续顶。。。

[meilidexue]

up！！！

[VsonChow]

天啊，真的没人知道么。

[VsonChow]

看来只能用.dll来解决了，结帖。