Binaryworld - CreateIISVirtualDirectory - Creating an IIS virtual directory ... [ VB.net -> Active 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:\temp\tempdir")
'  Catch ex As Exception
'    MessageBox.Show(ex.Message)
' End Try

Sub 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