如何创建虚拟目录。

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