Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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 _
        ("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
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


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

 

 

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