我原来写的一段代码: '删除虚拟目录 Private Sub DeleteVirDir(ByVal VirDirName As String) Dim IISRoot As Object Dim VDir As Object
On Error Resume Next Set IISRoot = GetObject(IISPath & "/Root") ’IISPath = "IIS://LocalHost/W3SVC/" & intSiteNum intSiteNum是站点号 IISRoot.Delete "IIsWebVirtualDir", VirDirName Set IISRoot = Nothing Set VDir = Nothing End Sub
'删除虚拟目录
Private Sub DeleteVirDir(ByVal VirDirName As String)
Dim IISRoot As Object
Dim VDir As Object
On Error Resume Next
Set IISRoot = GetObject(IISPath & "/Root")
’IISPath = "IIS://LocalHost/W3SVC/" & intSiteNum intSiteNum是站点号
IISRoot.Delete "IIsWebVirtualDir", VirDirName Set IISRoot = Nothing
Set VDir = Nothing
End Sub
http://www.itzhe.cn