Solved

Retrieve from Sharepoint 2010 list of all sites in VB

Posted on 2015-01-27
5
303 Views
Last Modified: 2016-02-18
How can I retrieve the current list of all sites in Sharepoint through VB using the Imports Microsoft.SharePoint.Client ?
My goal is to check whether the site is already created before VB creates a new Site. I got the site creation down, but now I need to check and see if the site has already been created.
0
Comment
Question by:BKennedy2008
  • 3
  • 2
5 Comments
 
LVL 31

Expert Comment

by:Jamie McAllister MVP
ID: 40572962
The API calls are identical for VB, just the surrounding code is a little different.

Here's a C# example you can port easily.

using(SPWeb web = site.OpenWeb("/anotherWeb/"))
{
   if(web.Exists)
   {
       string title = web.Title;
   }
}

Open in new window

0
 

Author Comment

by:BKennedy2008
ID: 40573063
Can you put your logic within this code below taht creates the site? Thanks

 Dim clientContext As New ClientContext("http://sps.xxxx.com/")
        Dim collWeb As WebCollection = clientContext.Web.Webs

        Dim webCreationInfo As New WebCreationInformation()
        webCreationInfo.Title = Job_Number.Text
        webCreationInfo.Description = JobNme.Text
        webCreationInfo.Language = 1033
        webCreationInfo.Url = Job_Number.Text
        webCreationInfo.UseSamePermissionsAsParentSite = True
        webCreationInfo.WebTemplate = TemplateID

        Dim oNewWebsite As Web = collWeb.Add(webCreationInfo)
        Try
            clientContext.ExecuteQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.Cursor = Cursors.Default
            Exit Sub
        End Try
0
 
LVL 31

Accepted Solution

by:
Jamie McAllister MVP earned 500 total points
ID: 40573187
Use of Client Object Model changes my answer a little;

 Private Function WebExists(ByVal siteUrl As String, ByVal webUrl As String) As Boolean
    'connect to the root site
    Imports (ClientContext context = New ClientContext(siteUrl))
    {
        ' load up the root web object but only 
        ' specifying the sub webs property to avoid 
        ' unneeded network traffic
        Dim web As var =  context.Web 
        context.Load(web, w =&gt w.Webs)
        context.ExecuteQuery()
        ' use a simple linq query to get any sub webs with the URL we want to check
        Dim subWeb As var = (from w in web.Webs where w.Url  =  webUrl select w).SingleOrDefault() 
        If Not subWeb Is Nothing Then
          ' if found true
          Return True
        End If
      }
      ' default to false...
      Return False
    End Function
 
 If Not WebExists("http://sps.xxxx.com/", "http://sps.xxxx.com/");
 
 Dim clientContext As New ClientContext("http://sps.xxxx.com/")
        Dim collWeb As WebCollection = clientContext.Web.Webs

        Dim webCreationInfo As New WebCreationInformation()
        webCreationInfo.Title = Job_Number.Text
        webCreationInfo.Description = JobNme.Text
        webCreationInfo.Language = 1033
        webCreationInfo.Url = Job_Number.Text
        webCreationInfo.UseSamePermissionsAsParentSite = True
        webCreationInfo.WebTemplate = TemplateID

        Dim oNewWebsite As Web = collWeb.Add(webCreationInfo)
        Try
            clientContext.ExecuteQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.Cursor = Cursors.Default
            Exit Sub
        End Try
		
		bool WebExists(string siteUrl, string webUrl)
{
    //connect to the root site
    using (ClientContext context = new ClientContext(siteUrl))
    {
        // load up the root web object but only 
        // specifying the sub webs property to avoid 
        // unneeded network traffic
        var web = context.Web;
        context.Load(web, w => w.Webs);
        context.ExecuteQuery();
        // use a simple linq query to get any sub webs with the URL we want to check
        var subWeb = (from w in web.Webs where w.Url == webUrl select w).SingleOrDefault();
        if (subWeb != null)
        {
          // if found true
          return true;
        }
      }
      // default to false...
      return false;
}
End If

Open in new window

0
 

Author Comment

by:BKennedy2008
ID: 40573850
I reduced it to this, and works great. Thanks for a starting point
Private Sub getSubWebs(path As String)
        Try
            Dim clientContext As New ClientContext(path)
            Dim oWebsite As Web = clientContext.Web
            clientContext.Load(oWebsite, Function(website) website.webs)
            clientContext.ExecuteQuery()

            For Each orWebsite As Web In oWebsite.Webs
                dt.Rows.Add(orWebsite.Title)
            Next
            DataGridView2.DataSource = dt
        Catch ex As Exception
        End Try


    End Sub
0
 

Author Comment

by:BKennedy2008
ID: 40573856
I've requested that this question be closed as follows:

Accepted answer: 0 points for BKennedy2008's comment #a40573850
Assisted answer: 500 points for Jamie McAllister MVP's comment #a40573187

for the following reason:

Modified to VB
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Summary In SharePoint 2010 it is easy to create custom color themes to jazz up a site. Theme colors can also be created in PowerPoint 2010 with a few clicks. But how do the chosen colors actually look in the SharePoint site? The attached PowerPoint…
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question