用ASP.NET（VB版）创建WINDOWS 2000 SERVER站点

REM 检查是否该站点中已有该虚拟目录

On Error GoTo ErrHandle

WWWIF = GetObject("IIS://" & ComputerName & "/W3SVC/" & i & "/Root/" & DirName)

REM 如果有，则返回False

If WWWIF.Name <> "" Then

CreateVirtualDir = False

Exit Function

End If

ErrHandle:

@#Debug.Print Err.Number

If Err.Number = -2147024893 Then

Err.Clear()

REM 如果是因为没有找到该虚拟目录出错的话则进行CreateVirtualDir建立虚拟目录

GoTo ReturnCreate

Else

CreateVirtualDir = False

Exit Function

End If

REM 建立虚拟目录

ReturnCreate:

WWWVirtualDir = WWWServer.Create("IISWebVirtualDir", DirName)

WWWVirtualDir.Path = LinkAddr

WWWVirtualDir.AccessRead = True

WWWVirtualDir.AccessScript = True

WWWVirtualDir.AppCreate(True)

WWWVirtualDir.SetInfo()