NTFS目录权限设置



VB中使用

引用 KLMYTLib.SetPopedom



先申明几个常量,下面几个用于目录权限设置的:

Private Const GENERIC_READ = &H80000000 读

Private Const GENERIC_WRITE = &H40000000 写

Private Const GENERIC_EXECUTE = &H20000000 执行

Private Const GENERIC_ALL = &H10000000 所有



申明组件：

Private KLMYT As New KLMYTLib.SetPopedom



使用方法：

dim reval as long 定义一个返回值

KLMYT.AccessMask = GENERIC_READ + GENERIC_WRITE 目录访问权限

KLMYT.UserName = \"UserName\" 系统用户

KLMYT.DirectoryPath = \"d:\\website\" 要设置的目录

reval = KLMYT.SetPopedom 设置目录权限



reval 为零成功 否则失败 501 为目录所在分区不是NTFS的错误,错误处理还不够完善,但只要差数不错,一般是没问题



其它:

好像在ASP中调用有问题,到时我再-NTFS permission settings VB use references KLMYTLib.SetPopedom first state a few constants, and for the following several permission settings : Private Const GENERIC_READ =