CreateIISVirtualDirectory – Creating an IIS virtual directory

' Creates a IIS virtual directory with the specified name,'  and that points to the specified physical path' Note: requires a reference to the System.DirectoryServices.dll assembly' Note: exception handling (for example to catch an invalid path) should be ' added in the calling code.'' Example:'    Try'       CreateIISVirtualDirectory("MyTestDir", "d:	emp	empdir")'    Catch ex As Exception'       MessageBox.Show(ex.Message)'   End TrySub CreateIISVirtualDirectory(ByVal name As String, ByVal path As String)    ' get a reference to the default server's root dir    Dim rootDir As New System.DirectoryServices.DirectoryEntry _        ("IIS://localhost/W3SVC/1/Root")    ' create a child virtual directory    Dim newDir As System.DirectoryServices.DirectoryEntry = _        rootDir.Children.Add(name, rootDir.SchemaClassName)    ' set the virtual directory's physical path    newDir.Properties("Path")(0) = path    ' save the virtual directory    newDir.CommitChanges()End Sub