Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: Advanced
May 26, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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:\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 _
    ' 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
End Sub
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date