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

2024.02.26

SharePointRestAPIで共有フォルダ内のファイルを削除する方法

カテゴリ： VB.NET

Imports System.Net.Http

Imports System.Text

Imports System.Threading.Tasks

Sub Main()

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

Dim username As String = "your-username"

Dim password As String = "your-password"

Dim folderUrl As String = "/sites/your-site/shared documents/your-folder/" ' 共有フォルダのURL

Dim fileName As String = "FileToDelete.txt" ' 削除するファイルの名前

DeleteFileInSharePoint(siteUrl, username, password, folderUrl, fileName).Wait()

End Sub

Async Function DeleteFileInSharePoint(siteUrl As String, username As String, password As String, folderUrl As String, fileName 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)

' ファイルを削除するためのエンドポイントURLを作成

Dim endpointUrl As String = $"{siteUrl}/_api/web/getfilebyserverrelativeurl('{folderUrl}/{fileName}')"

' HTTP DELETE リクエストを送信してファイルを削除

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

' レスポンスをチェックして結果を表示

If response.IsSuccessStatusCode Then

Console.WriteLine($"File '{fileName}' deleted successfully from SharePoint folder '{folderUrl}'.")

Else

Console.WriteLine($"Failed to delete file from SharePoint folder. StatusCode: {response.StatusCode}")

End If

End Using

End Function

End Module

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

Last updated 2024.02.26 02:59:45

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

【毎日開催】

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

10秒滞在

いいね! -- / --

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

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

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