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

2024.02.26

VB.NETでSharePointリストから特定のリストアイテムを削除するコード

カテゴリ： VB.NET

Imports System.Net.Http

Imports System.Text

Imports System.Threading.Tasks

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"

Dim itemId As Integer = 10 ' 削除するアイテムのID

DeleteListItem(siteUrl, username, password, listName, itemId).Wait()

End Sub

Async Function DeleteListItem(siteUrl As String, username As String, password As String, listName As String, itemId As Integer) 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({itemId})"

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

If response.IsSuccessStatusCode Then

Console.WriteLine($"Item with ID {itemId} deleted successfully from list '{listName}'.")

Else

Console.WriteLine($"Failed to delete item. StatusCode: {response.StatusCode}")

End If

End Using

End Function

End Module

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

Last updated 2024.02.26 02:46:00

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

【毎日開催】

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

10秒滞在

いいね! -- / --

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

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

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