crear sites

21/06/2005 - 15:48 por Clara | Informe spam
Hola a todos,

Estoy programando una DLL enlazada con el Sharepoint que me permite
crear sites (en teoria) ya que llamo a la función para crear un Site, y
aunque no me da ningún error, no me crea ningún site. Este es mi código:

Try
Dim WebCollection as Sharepoint.SPWebCollection
Dim SiteCollection as New Sharepoint.SPSite("http://sssrv1:81")
SiteCollection.AllowUnsafeUpdates = True
SiteCollection.CatchAccessDeniedException = False
Dim TmpWeb As Sharepoint.SPWeb = SiteCollection.OpenWeb( )
Dim WebNueva as Sharepoint.SPWeb
WebNueva = TmpWeb.Webs.Add("Prueba", "Prueba", "Descripcion de prueba",
Convert.ToUint32(1033), "Document Workspace", False, False)
WebNueva.Dispose( )
TmpWeb.Dispose ( )
SiteCollection.Dispose ( )
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

Gracias por la ayuda,

Clara.
 

Leer las respuestas

#1 Clara
22/06/2005 - 08:15 | Informe spam
Hola Gustavo,

Me temo que fué culpa mia. No me estaba creando los Sites en
"http://sssrv1:81/Sites/", si no directamente en "http://sssrv1:81". De
todas formas, una vez me di cuenta de esto, he intentado que los cree dentro
de "http://sssrv1:81/Sites/", pero me salta la siguiente excepcion:

The Web site that is referenced here is not in the configuration
database.

El código que uso es exactamente el mismo, solo que en el método add de
la clase SPWeb, pongo "sites/Prueba" en vez de prueba.

Gracias por la ayuda.

"Gustavo" wrote in message
news:
Hola Clara,
Se me ocurre que el parametro "WebTemplate" del metodo "Add" necesita algo
por el estilo de "STS#2" (para Document Workspace). En cualquier caso,


vale
la pena de ser probado.
Suerte,
Gustavo
http://www.gavd.net/servers/default.aspx


"Clara" wrote:

> Hola a todos,
>
> Estoy programando una DLL enlazada con el Sharepoint que me permite
> crear sites (en teoria) ya que llamo a la función para crear un Site, y
> aunque no me da ningún error, no me crea ningún site. Este es mi código:
>
> Try
> Dim WebCollection as Sharepoint.SPWebCollection
> Dim SiteCollection as New Sharepoint.SPSite("http://sssrv1:81")
> SiteCollection.AllowUnsafeUpdates = True
> SiteCollection.CatchAccessDeniedException = False
> Dim TmpWeb As Sharepoint.SPWeb = SiteCollection.OpenWeb( )
> Dim WebNueva as Sharepoint.SPWeb
> WebNueva = TmpWeb.Webs.Add("Prueba", "Prueba", "Descripcion de


prueba",
> Convert.ToUint32(1033), "Document Workspace", False, False)
> WebNueva.Dispose( )
> TmpWeb.Dispose ( )
> SiteCollection.Dispose ( )
> Catch ex As Exception
> MessageBox.Show(ex.Message)
> End Try
>
> Gracias por la ayuda,
>
> Clara.
>
>
>
>

Preguntas similares