如何在vb中实现文件夹分配权限的问题？ - VB / 基础类
请教各位大大们：假设局域网内有A01、B01、C01等用户，现在想在服务器端（wind2003serv)用vb实现如下功能－－－
1、创建用户，并可以设置密码
2、在某个目录下如：E：\sharefiles中建立几个与用户名同名的文件夹，并设为共享；
3、并设置权限为：A01用户通过密码只能访问并能读写A01这个文件夹中的文件；B01用户通过密码只能访问并能读写B01文件夹中的文件，……；
4、且对某个用户而言，其它用户的文件夹是隐藏的。
5、可以设置某个文件夹为全部用户都共享，可见的，但只能读取。
想用vb编程实现以上功能，其中第1、2个功能已经实现，但其它功能不知如何才能做到？
用shell" net user"实现创建用户、设置密码，net share设置共享，权限要如何设置呢？高手们出手呀！！
老大，有没有vb版的，本人是菜菜，但还是先谢谢了！
学习了，过会儿汇报
这一段较忙，到现在才汇报。有两种方法。一种可利用net share /grant的方法（win2003），另一种即zhao4zhong1 所说的。谢谢zhao4zhong1。山野哥所说的advapi32，由于本人太菜了，对API不熟悉，没有深究，也谢谢了。结贴散分。
相关问答：
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
