Binaryworld - RemoveIISVirtualDirectory - Removing an IIS virtual directory ... [ VB.net -> Active Directory ]

' Removes the IIS virtual directory with the specified name
' Note: requires a reference to the System.DirectoryServices.dll assembly
' Note: exception handling (for example to catch an invalid virtual directory
' name or path) should be added in the calling code.
'
' Example:
'  Try
'    RemoveIISVirtualDirectory("MyTestDir")
'  Catch ex As Exception
'    MessageBox.Show(ex.Message)
' End Try

Sub RemoveIISVirtualDirectory(ByVal name As String)
  Dim dir As New System.DirectoryServices.DirectoryEntry _
    ("IIS://localhost/W3SVC/1/Root")
  dir.Children.Remove(dir.Children.Find(name, dir.SchemaClassName))
  dir.CommitChanges()
End Sub