带参数，给文件夹赋予对应权限

vbs:
Dim objfso,myfile
Set objfso=CreateObject("scripting.filesystemobject")
If Not objfso.FolderExists(designPath&"\"&projectname) Then
objfso.CreateFolder(designPath&"\"&projectname)
End If
If Not objfso.FolderExists(designPath&"\"&projectname&"\"&designname) Then
objfso.CreateFolder(designPath&"\"&projectname&"\"&designname)
End If


'grant preview to the designer(layout engineer) and owener(hardward design engineer)
Set objShell = CreateObject("Wscript.Shell")
'MsgBox "grant.bat """&designPath&"\"&projectname&"\"&designname&""" "&pba&" """&designname&""""
objShell.Run "grant.bat """&designPath&"\"&projectname&"\"&designname&""" "&pba&" """&designname&""" PBA"




DOS:(grant.bat)需要文件xcacls.vbs
cscript.exe xcacls.vbs %1 /t /e /g %2:f

net share %3=%1 /grant:%2,change

'需要xcacls.vbs的支持，如没有，需自行下载，这个是微软官方产品。对于win7以上系统，需要自行修改其中对OS版本的判断。