如何在vb实现IIS中建立虚拟目录

Question

如何在vb实现IIS中建立虚拟目录

Answer 1

'发布虚拟站点
'参数：
'  strWebSite          虚拟站点名称
'  strFriendlyName    程序名称
'  strWebPath          网页文件路径
'  strDefaultDoc      默认网站首页Public Function WebVirtualDir(ByVal strWebSite As String, ByVal strFriendlyName As String, ByVal strWebPath As String, ByVal strDefaultDoc As String) As Boolean
    Dim objADSI      As Object
    Dim objWebVDir    As Object
    
    On Error GoTo Lib_Err
    
    Set objADSI = GetObject("IIS://LocalHost/W3SVC/1/Root")
    Set objWebVDir = objADSI.Create("IIsWebVirtualDir", strWebSite)
    objWebVDir.SetInfo
    
    Set objWebVDir = objADSI.GetObject("IIsWebVirtualDir", strWebSite)
    objWebVDir.AppCreate True
    objWebVDir.Put "AppFriendlyName", strFriendlyName
    objWebVDir.Put "AppRoot", "/LM/W3SVC/1/Root/" & strWebSite
    objWebVDir.Put "Path", strWebPath
    objWebVDir.Put "AppIsolated", 0
    objWebVDir.Put "DefaultDoc", strDefaultDoc
    objWebVDir.Put "AccessFlags", 535
    objWebVDir.SetInfo
    
    WebVirtualDir = True
    
Lib_End:
    Set objWebVDir = Nothing
    Set objADSI = Nothing
    Exit Function
    
Lib_Err:
    WebVirtualDir = False
    strError = Err.Description
    Err.Clear
    Resume Lib_End
    
End Function
=======================================
还有， 你可参考：
http://www.csdn.net/expert/Topic/282/282902.shtm