全て
| カテゴリ未分類
| 通常
| 数学
| 投資
| 副業
| 転職・就職
| ブログ
| 株Stock
| VBA
| SharePoint
| REST API
| RenderListDataAsStream
| PowerAutomateDesktop
| Graph API
| PowerApps
| PowerAutomate
| PowerFx
| OfficeScriptオフィススクリプト
| PowerAutomate日時Excel日時相互関係
| PowerShell
| Dataverse
| UiPath
| OneDrive
| LINQ
| VB.NET
| C#.NET
| WPFC#.NET
| Git
カテゴリ:VB.NET
Imports System.Net.Http Imports System.Text Imports System.Threading.Tasks Imports System.IO 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 sourceFolderUrl As String = "/sites/your-site/shared documents/source-folder/" ' 元のフォルダのURL Dim destinationFolderUrl As String = "/sites/your-site/shared documents/destination-folder/" ' 移動先のフォルダのURL Dim fileName As String = "file.txt" ' 移動するファイルの名前 MoveFileInSharePoint(siteUrl, username, password, sourceFolderUrl, destinationFolderUrl, fileName).Wait() End Sub Async Function MoveFileInSharePoint(siteUrl As String, username As String, password As String, sourceFolderUrl As String, destinationFolderUrl As String, fileName As String) As Task Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes($"{username}:{password}")) ' 移動元のファイルのパスを取得 Dim sourceFileUrl As String = $"{siteUrl}/_api/web/getfilebyserverrelativeurl('{sourceFolderUrl}/{fileName}')" ' 移動先のフォルダにファイルをアップロードするためのエンドポイントURLを作成 Dim destinationFileUrl As String = $"{siteUrl}/_api/web/getfolderbyserverrelativeurl('{destinationFolderUrl}')/files/add(url='{fileName}',overwrite=true)" Using client As New HttpClient() client.DefaultRequestHeaders.Authorization = New System.Net.Http.Headers.AuthenticationHeaderValue("Basic", credentials) client.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json")) ' 移動元のファイルを読み込む Dim response As HttpResponseMessage = Await client.GetAsync(sourceFileUrl) If response.IsSuccessStatusCode Then ' ファイルの内容を取得 Dim fileBytes As Byte() = Await response.Content.ReadAsByteArrayAsync() Dim fileContent As New ByteArrayContent(fileBytes) ' 移動先にファイルをアップロード Dim uploadResponse As HttpResponseMessage = Await client.PostAsync(destinationFileUrl, fileContent) If uploadResponse.IsSuccessStatusCode Then Console.WriteLine($"File '{fileName}' moved successfully from '{sourceFolderUrl}' to '{destinationFolderUrl}'.") ' 元のファイルを削除 Dim deleteResponse As HttpResponseMessage = Await client.DeleteAsync(sourceFileUrl) If deleteResponse.IsSuccessStatusCode Then Console.WriteLine($"File '{fileName}' deleted successfully from '{sourceFolderUrl}'.") Else Console.WriteLine($"Failed to delete file '{fileName}' from '{sourceFolderUrl}'. StatusCode: {deleteResponse.StatusCode}") End If Else Console.WriteLine($"Failed to move file '{fileName}' to '{destinationFolderUrl}'. StatusCode: {uploadResponse.StatusCode}") End If Else Console.WriteLine($"Failed to retrieve file '{fileName}' from '{sourceFolderUrl}'. StatusCode: {response.StatusCode}") End If End Using End Function End Module お気に入りの記事を「いいね!」で応援しよう
Last updated
2024.02.26 03:13:26
[VB.NET] カテゴリの最新記事
|