如何通过VB.Net中的drive API将文件上传到谷歌共享驱动器？

Install-Package Google.Apis.Drive.v3

Imports Google.Apis.Auth.OAuth2
Imports Google.Apis.Drive.v3
Imports Google.Apis.Drive.v3.Data
Imports Google.Apis.Services
Imports Google.Apis.Util.Store

Private Function GetDriveService() As DriveService
    Dim credential As UserCredential
    Dim scopes As String() = {DriveService.Scope.Drive}

    Using stream = New FileStream("path_to_your_client_secret.json", FileMode.Open, FileAccess.Read)
        Dim credPath As String = "path_to_store_user_credentials"
        credential = GoogleWebAuthorizationBroker.AuthorizeAsync(
            GoogleClientSecrets.Load(stream).Secrets,
            scopes,
            "user",
            CancellationToken.None,
            New FileDataStore(credPath, True)).Result
    End Using

    Dim service = New DriveService(New BaseClientService.Initializer() With {
        .HttpClientInitializer = credential,
        .ApplicationName = "Your_Application_Name"
    })

    Return service
End Function

Private Sub UploadFileToDrive(filePath As String, folderId As String)
    Dim service = GetDriveService()

    Dim fileMetadata = New File() With {
        .Name = Path.GetFileName(filePath),
        .Parents = New List(Of String) From {folderId}
    }

    Dim request = service.Files.Create(fileMetadata, New FileStream(filePath, FileMode.Open))
    request.Fields = "id"
    request.Upload()

    Dim file = request.ResponseBody
    Console.WriteLine("File ID: " & file.Id)
End Sub

UploadFileToDrive("path_to_your_file", "target_folder_id")