No consigo crear un objeto SPSite que referencie a mi sitio Sharep

A mi me va a la perfección con el código siguiente, fíjate que especifico la
URL del sitio en lugar de la URI (disculpa que lo ponga en C#):


try
{
// Especificamos la dirección URL de nuestra Colección de
Sitios
SPSite ColeccionDeSitios = new
SPSite("http://teotech.worpress.com");

// Especificamos el sitio que deseamos asignar a UnaSitio
SPWeb UnSitio = ColeccionDeSitios.OpenWeb("/SubSitio1");

// Asignamos las listas del sistio a una Colección de
// Listas (SPListCollection)
SPListCollection ColeccionDeListas = UnSitio.Lists;

// De la colección de listas especificamos la lista que
// deseamos asignar a UnaLista (SPList)
SPList UnaLista = ColeccionDeListas["Documentos"];

// Asigamos los Items de la lista a una Coleccion de Items
// (SPListItemCollection
SPListItemCollection ColeccionItems = UnaLista.Items;

Console.WriteLine("Nombre de la Lista : " +
ColeccionItems.Count.ToString());
foreach (SPListItem Item in ColeccionItems)
{
Console.WriteLine("Display name de cada Item : " +
Item.DisplayName);
}

Console.Read();
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
Console.Read();
}



"Jorge" wrote:

Hola, estoy atascado y no se como conseguir acceder a un objeto SPSite a
través del Object Model de WSS 2.0 para recuperar los documentos de una
biblioteca de documentos creada en Sharepoint. Todos los ejemplos que veo son
iguales pero a mi no me funciona.

El problema está al hacer el "New" de SPSite referenciando la uri de mi
sitio, siempre obtengo una excepcion de formato de cadena. El codigo es el
siguiente

He probado poniendo sólo server y puerto, server, puerto y workspace,
server, puerto, workspace y biblioteca y siempre obtengo el mismo error:


Dim uri As String = New String("http://PONGA LO QUE PONGA FALLA")
Me.oSitioSP = New SPSite(uri)
Me.oWebSP = Me.oSitioSP.OpenWeb()

Dim oLista As SPList
Me.lstDocumentos.Items.Clear()

For Each oLista In Me.oWebSP.Lists
Dim oItem As New ListItem(oLista.Title)
Me.lstDocumentos.Items.Add(oItem)
Next

Catch ex As Exception
Me.lblError.Text = ex.Message
Finally
If Not Me.oWebSP Is Nothing Then
Me.oWebSP.Dispose()
End If
If Not Me.oSitioSP Is Nothing Then
Me.oSitioSP.Dispose()
End If
End Try

Muchas Gracias.