Hi everyone

I need to create a Virtual Directory for IIS 5.1 from .NET, I found (thanks
to Dmytro Lapshyn [MVP]) in MSDN a page that shows an ""example"" of how to
do it, but in fact the example is no there, maybe de docs are in beta
versions or something like that, can anyone help me???

This is the link of the ""example"": http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iissdk/html/425ff52d-9998-44a9-95dd-b46b2e390db8.asp

Sorry, that wasnt the link, this is te correct one: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iissdk/html/4d4dc778-7c31-48d0-a758-37db1142a456.asp
Show quoteHide quote

I found a code example in a vb forum to Create a Virtual Directory with
System.DirectoryServices, if anyone need it:

Module Module1

    Sub Main()
        Module1.CreateVirtualDir("localhost", "NewVDir",
"C:\Projects\NewContent")
        Console.ReadLine()
    End Sub

    Private Sub CreateVirtualDir(ByVal WebSite As String, ByVal AppName As
String, ByVal Path As String)

        Dim IISSchema As New
System.DirectoryServices.DirectoryEntry("IIS://" & WebSite &
"/Schema/AppIsolated")
        Dim CanCreate As Boolean = Not
IISSchema.Properties("Syntax").Value.ToString.ToUpper() = "BOOLEAN"
        IISSchema.Dispose()

        If CanCreate Then
            Dim PathCreated As Boolean

            Try
                Dim IISAdmin As New
System.DirectoryServices.DirectoryEntry("IIS://" & WebSite & "/W3SVC/1/Root")

                'make sure folder exists
                If Not System.IO.Directory.Exists(Path) Then
                    System.IO.Directory.CreateDirectory(Path)
                    PathCreated = True
                End If

                'If the virtual directory already exists then delete it
                For Each VD As System.DirectoryServices.DirectoryEntry In
IISAdmin.Children
                    If VD.Name = AppName Then
                        IISAdmin.Invoke("Delete", New String()
{VD.SchemaClassName, AppName})
                        IISAdmin.CommitChanges()
                        Exit For
                    End If
                Next VD

                'Create and setup new virtual directory
                Dim VDir As System.DirectoryServices.DirectoryEntry =
IISAdmin.Children.Add(AppName, "IIsWebVirtualDir")
                VDir.Properties("Path").Item(0) = Path
                VDir.Properties("AppFriendlyName").Item(0) = AppName
                VDir.Properties("EnableDirBrowsing").Item(0) = False
                VDir.Properties("AccessRead").Item(0) = True
                VDir.Properties("AccessExecute").Item(0) = True
                VDir.Properties("AccessWrite").Item(0) = False
                VDir.Properties("AccessScript").Item(0) = True
                VDir.Properties("AuthNTLM").Item(0) = True
                VDir.Properties("EnableDefaultDoc").Item(0) = True
                VDir.Properties("DefaultDoc").Item(0) =
"default.htm,default.aspx,default.asp"
                VDir.Properties("AspEnableParentPaths").Item(0) = True
                VDir.CommitChanges()

                'the following are acceptable params
                'INPROC = 0
                'OUTPROC = 1
                'POOLED = 2
                VDir.Invoke("AppCreate", 1)

            Catch Ex As Exception
                If PathCreated Then
                    System.IO.Directory.Delete(Path)
                End If
                Throw Ex
            End Try
        End If
    End Sub

End Module



__________________
Luis Graillet Ramos


Show quoteHide quote

using unmanaged dlls from managed dll wrappers.
MSDN Using Asynchronous Server Socket ?
Visual Studio 2005 and framework 1.1
Generate key file in code
How to correctly handle exceptions in other threads