title: Access is denied when creating virtual directory
body: <p>I got this error </p>
  
  <blockquote>
    <p>Access is denied. (Exception from HRESULT: 0x80070005
    (E_ACCESSDENIED))</p>
  </blockquote>
  
  <p>when I try to create Virtual Directory using vb.net code with asp.net web forms and the following the code that I used .. </p>
  
  <pre><code>Private Sub CreateVirtualDir(ByVal WebSite As String, ByVal AppName As String, ByVal Path As String)
  
          Dim IISSchema As New System.DirectoryServices.DirectoryEntry("IIS://" &amp; WebSite &amp; "/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://" &amp; WebSite &amp; "/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("AuthBasic").Item(0) = True
                  VDir.Properties("AspBufferingOn").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.Properties("AuthAnonymous").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
  
  
  
              End Try
          End If
  
      End Sub
  </code></pre>
  
  <p>any help please >????</p>