asked on

Retrieve from Sharepoint 2010 list of all sites in VB

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.

Jamie McAllister

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

BKennedy2008

ASKER

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

ASKER CERTIFIED SOLUTION

Jamie McAllister

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

BKennedy2008

ASKER

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

BKennedy2008

ASKER

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