「東雲忠太郎」の平凡な日常のできごと

2024.02.26

SharePointRestAPIでリストに登録されているリストアイテムの件数を取得するコード

カテゴリ： VB.NET

Imports System.Net.Http

Imports System.Text

Imports System.Threading.Tasks

Imports Newtonsoft.Json.Linq

Module Module1

Sub Main()

Dim siteUrl As String = "https://your-sharepoint-site-url"

Dim username As String = "your-username"

Dim password As String = "your-password"

Dim listName As String = "YourListName"

GetListItemCount(siteUrl, username, password, listName).Wait()

End Sub

Async Function GetListItemCount(siteUrl As String, username As String, password As String, listName As String) As Task

Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes($"{username}:{password}"))

Using client As New HttpClient()

client.DefaultRequestHeaders.Authorization = New System.Net.Http.Headers.AuthenticationHeaderValue("Basic", credentials)

Dim endpointUrl As String = $"{siteUrl}/_api/web/lists/getbytitle('{listName}')/items?$select=Id&$top=5000&$count=true"

Dim response As HttpResponseMessage = Await client.GetAsync(endpointUrl)

If response.IsSuccessStatusCode Then

Dim responseContent As String = Await response.Content.ReadAsStringAsync()

Dim json As JObject = JObject.Parse(responseContent)

Dim itemCount As Integer = json("@odata.count")

Console.WriteLine($"Total items in list '{listName}': {itemCount}")

Else

Console.WriteLine($"Failed to retrieve list items count. StatusCode: {response.StatusCode}")

End If

End Using

End Function

End Module

お気に入りの記事を「いいね！」で応援しよう

Last updated 2024.02.26 03:15:50

[VB.NET] カテゴリの最新記事

【毎日開催】

15記事にいいね！で1ポイント

10秒滞在

いいね! -- / --

おめでとうございます！
ミッションを達成しました。

※「ポイントを獲得する」ボタンを押すと広告が表示されます。

スマートフォン版を閲覧 | PC版を閲覧