Public Function CreateWebDir(DirName, Bname, Optional ScriptFlag = 0)
On Error Resume Next
Dim strVirtualDirectoryName, strVirtualDirectoryPath, objIIS, objVirtualDirectory
strVirtualDirectoryName = Bname
strVirtualDirectoryPath = DirName
Set objIIS = GetObject("IIS://localhost/W3SVC/1133109307/Root")
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir", strVirtualDirectoryName)
objVirtualDirectory.AccessScript = False
'If ScriptFlag = 0 Then
' objVirtualDirectory.AccessFlags = "AccessRead"
'Else
'objVirtualDirectory.AccessFlags = "AccessRead | AccessScript"
'End If
objVirtualDirectory.Path = strVirtualDirectoryPath
objVirtualDirectory.SetInfo
objVirtualDirectory.AppCreate True
If Err.Number <> 0 Then Call ErrMessage("发生意外错误,请和管理员联系。")
Err.Clear
End Function