Como a: Return sites e coleções de sites

Você pode retornar todos os sites da Web em uma coleção site, todos na primeira-subsites camada sob um site, todos os subsites e listas para o atual site, ou a coleção de coleções em um aplicativo da Web SharePoint, conforme o seguinte site exemplos.

Você pode retornar todos os sites da Web em uma coleção site, incluindo o de alto nível site e todos os subsites, usando o AllWebs P:Microsoft.SharePoint.SPSite.AllWebs propriedade do SPSite T:Microsoft.SharePoint.SPSite classe. O seguinte exemplo exibe os títulos de todos os sites e listas na atual coleção site.

                  Dim mySite As SPSite = SPContext.Current.Site
Dim subSites As SPWebCollection = mySite.AllWebs
Dim i As Integer

For i = 0 To subSites.Count - 1
    Dim lists As SPListCollection = subSites(i).Lists
    Dim j As Integer

    For j = 0 To lists.Count - 1
        Response.Write(SPEncode.HtmlEncode(subSites(i).Title) 
            & " :: " _ & SPEncode.HtmlEncode(lists(j).Title) & "<BR>")
    Next j
Next i

                  SPSite mySite = SPContext.Current.Site;
SPWebCollection subSites = mySite.AllWebs;

for (int i=0;i<subSites.Count;i++)
{
    SPListCollection lists = subSites[i].Lists;

    for (int j=0;j<lists.Count;j++)
    {
        Response.Write(SPEncode.HtmlEncode(subSites[i].Title) 
            + " :: " + SPEncode.HtmlEncode(lists[j].Title) + "<BR>");
    }
}

O exemplo anterior requer using ( Imports na Visual Basic) para o Microsoft.SharePoint e espaços para nome Microsoft.SharePoint.Utilities N:Microsoft.SharePoint.Utilities.

Para retornar uma lista de todos na primeira-camada subsites sob um site, use o Webs P:Microsoft.SharePoint.SPWeb.Webs propriedade do SPWeb T:Microsoft.SharePoint.SPWeb classe. O seguinte exemplo exibe uma lista de títulos subsite.

                  Dim mySite As SPWeb = SPContext.Current.Web
Dim sites As SPWebCollection = mySite.Webs
Dim subSite As SPWeb

For Each subSite In  sites
    Response.Write(SPEncode.HtmlEncode(subSite.Title) & "<BR>")
Next subSite

                  SPWeb mySite = SPContext.Current.Web;
SPWebCollection sites = mySite.Webs;

foreach (SPWeb subSite in sites)
{
    Response.Write(SPEncode.HtmlEncode(subSite.Title) + "<BR>");
}

O exemplo anterior requer using ( Imports na Visual Basic) para o Microsoft.SharePoint e espaços para nome Microsoft.SharePoint.Utilities N:Microsoft.SharePoint.Utilities.

Em vez de usar uma declaração foreach foreach, o seguinte exemplo usa aninhadas for instruções para exibir uma lista de subsite URLs e títulos lista.

                  Dim mySite As SPWeb = SPContext.Current.Web
Dim sites As SPWebCollection = mySite.Webs
Dim i As Integer

For i = 0 To sites.Count - 1
    Dim lists As SPListCollection = sites(i).Lists
    Dim j As Integer

    For j = 0 To lists.Count - 1
        Response.Write(sites(i).Url & " :: " 
            & SPEncode.HtmlEncode(lists(j).Title) & "<BR>")
    Next j
Next i

                  SPWeb mySite = SPContext.Current.Web;
SPWebCollection sites = mySite.Webs;

for (int i=0;i<sites.Count;i++)
{
    SPListCollection lists = sites[i].Lists;

    for (int j=0;j<lists.Count;j++)
    {
        Response.Write(sites[i].Url + " :: " 
            + SPEncode.HtmlEncode(lists[j].Title) + "<BR>");
    }
}

O exemplo anterior requer using ( Imports na Visual Basic) para o Microsoft.SharePoint e espaços para nome Microsoft.SharePoint.Utilities N:Microsoft.SharePoint.Utilities.

O próximo exemplo exibe todos os subsites e listas para o atual site, bem como o número de itens em cada lista. O exemplo usa instruções aninhadas foreach foreach para iterar por meio de coleções de Web sites e listas.

                  Dim mySite As SPWeb = SPContext.Current.Web
Dim sites As SPWebCollection = mySite.Webs
Dim subSite As SPWeb

For Each subSite In  sites
    Response.Write("<B>" & SPEncode.HtmlEncode(subSite.Title) & "</B>" 
        & "<BR>")

    Dim lists As SPListCollection = subSite.Lists
    Dim list As SPList

    For Each list In  lists
        Response.Write(SPEncode.HtmlEncode(list.Title) & " :: " 
           & list.ItemCount & "<BR>")
    Next list
Next subSite 

                  SPWeb mySite = SPContext.Current.Web;
SPWebCollection sites = mySite.Webs;

foreach (SPWeb subSite in sites)
{
    Response.Write("<B>" + SPEncode.HtmlEncode(subSite.Title) + "</B>" 
        + "<BR>");

    SPListCollection lists = subSite.Lists;

    foreach (SPList list in lists)
    {
        Response.Write(SPEncode.HtmlEncode(list.Title) 
            + " :: " + list.ItemCount + "<BR>");
    }
}

O exemplo anterior requer using ( Imports na Visual Basic) para o Microsoft.SharePoint e espaços para nome Microsoft.SharePoint.Utilities N:Microsoft.SharePoint.Utilities.

To return the collection of site collections in a SharePoint Web application, use the Sites property of the Microsoft.SharePoint.Administration.SPWebApplication class. Use Propriedades do Microsoft.SharePoint.SPContext T:Microsoft.SharePoint.SPContext classe para retornar o atual aplicativo da Web. O seguinte exemplo exibe as URLs de todas as coleções de site a atual aplicativo da Web.

                  Dim webApplication As SPWebApplication = SPContext.Current.Site.WebApplication
Dim siteCollections As SPSiteCollection = webApplication.Sites
Dim siteCollection As SPSite

For Each siteCollection In siteCollections
   Response.Write(siteCollection.Url + "<BR>")
Next siteCollection

                  SPWebApplication webApplication = SPContext.Current.Site.WebApplication;
SPSiteCollection siteCollections = webApplication.Sites;

foreach (SPSite siteCollection in siteCollections)
{
   Response.Write(siteCollection.Url + "<BR>");
}

The previous example requires using directives (Imports in Visual Basic) for the Microsoft.SharePoint, Microsoft.SharePoint.Administration, and Microsoft.SharePoint.Utilities namespaces.

O exemplo pressupõe a existência de uma página .aspx que contém um controle rotular.

Consulte também

Referência

Microsoft.SharePoint

Conceitos

Trabalhando com lista de objetos e coleções
Guia de Introdução Com programaticamente personalizar uma Web Site SharePoint em Visual Studio
A validação de segurança e fazer postagens para atualizar os dados
Elevação de privilégio