如何使用VB.NET将文件添加到Google Drive的子文件夹

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
Imports System.IO
Imports System.Threading

Public Class GoogleDriveUploader
    Private Sub UploadFileToFolder(filePath As String, folderId As String)
        Dim credential As UserCredential
        Dim scopes As String() = {DriveService.Scope.Drive}
        Dim clientSecretPath As String = "path/to/client_secret.json"
        Dim applicationName As String = "Your Application Name"

        Using stream = New FileStream(clientSecretPath, FileMode.Open, FileAccess.Read)
            Dim credPath As String = "path/to/token.json"
            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 = applicationName
        })

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

        Dim request As FilesResource.CreateMediaUpload
        Using stream = New FileStream(filePath, FileMode.Open)
            request = service.Files.Create(fileMetadata, stream, "fileType")
            request.Fields = "id"
            request.Upload()
        End Using

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