vb.net - 从 Sharepoint 下载空白和 0KB 的文件

Question

我正在开发一个连接到共享点的小型应用程序，以便能够从文档文件夹中下载一些文件。

详细信息是，当我下载文件时，它会下载空文件，文件大小为 0KB，当我尝试打开文件时，会发送一条消息说已损坏或损坏。

这是开发的代码。

    Imports Microsoft.Office.Interop
    Imports System.IO        
    Imports Microsoft.SharePoint.Client
    Imports Microsoft.SharePoint
    Imports System.Security
    Imports System.Net
    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
         Dim siteUrl As String = "https://example.sharepoint.com/sites/TRAINING/"
         Dim authManager = New OfficeDevPnP.Core.AuthenticationManager()
         Dim ctx As ClientContext = authManager.GetWebLoginClientContext(siteUrl)
         Dim web As Web = ctx.Web
         ctx.Load(web, Function(w) w.Title)
         ctx.ExecuteQuery()
         Console.WriteLine("You have connected to {0} site, with Multi Factor Authentication enabled!!", web.Title)
         
         DeleteFilesInsideFolder("C:\Users\Public\Documents\Test")

         rPath = "https://example.sharepoint.com/:x:/r/sites/TRAINING/Data/Example.xlsx"
         destination = "C:\Users\Public\Documents\Test\Example.xlsx"

         Try
            My.Computer.Network.DownloadFile(rPath, destination)
         Catch ex As Exception
            MessageBox.Show("An error occurred:" & Environment.NewLine & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End Try
        
    End Sub


    Sub DeleteFilesInsideFolder(ByVal target_folder_path As String)

         For Each file_path As String In Directory.GetFiles(target_folder_path)
              Try
                  My.Computer.FileSystem.DeleteFile(file_path)
              Catch ex As Exception
                  MessageBox.Show("An error occurred:" & Environment.NewLine & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
              End Try
         Next

    End Sub

拜托，你能帮我知道为什么吗？，有什么想法吗？

问候。

标签： vb.netwinformssharepoint