vb.net kann meine Datei in Google Drive nicht hochladen

Question

Ich benutze Google Drive API für das Hochladen einer PDF-Datei (mit vb.net), ich suchte eine Vielzahl von Tutorial in dieser und einer anderen Website (wie Google Drive bekommen api in vb.net, wie zum hochladen ...) und schließlich habe ich es erfolgreich aber das Problem erledigt, werden keine Dateien hinzugefügt in Laufwerk

hier ist mein Code

Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click 
    Dim filename As String = fichier.FileName 'from selected file in openfiledialog 
    CreateService() 
    UploadFile(filename) 
End Sub 


Private Service As DriveService = New DriveService 

Private Sub CreateService() 

    Dim ClientId = "*********" 
    Dim ClientSecret = "****************" 
    Dim MyUserCredential As UserCredential = GoogleWebAuthorizationBroker.AuthorizeAsync(New ClientSecrets() With {.ClientId = ClientId, .ClientSecret = ClientSecret}, {DriveService.Scope.Drive}, "user", CancellationToken.None).Result 
    Service = New DriveService(New BaseClientService.Initializer() With {.HttpClientInitializer = MyUserCredential, .ApplicationName = "Google Drive VB Dot Net"}) 
End Sub 
Private Sub UploadFile(FilePath As String) 
    Me.Cursor = Cursors.WaitCursor 
    CreateService() 
    Dim ByteArray As Byte() = System.IO.File.ReadAllBytes(FilePath) 
    Dim Stream As New System.IO.MemoryStream(ByteArray) 
    Me.Cursor = Cursors.Default 
    MsgBox("Upload Finished") 
End Sub 

, wenn ich meine ausführen Anwendung, das Ergebnis ist

aber ich kann keine Datei im Laufwerk finden

Answer 1

Sie rufen CreateService() zweimal, aber nie zum Hochladen von nichts.

Private Sub UploadFile(FilePath As String) 
    Me.Cursor = Cursors.WaitCursor 
    CreateService() 
    Dim ByteArray As Byte() = System.IO.File.ReadAllBytes(FilePath) 
    Dim Stream As New System.IO.MemoryStream(ByteArray) 
    '' --------------------------------------------------------- 
    '' Here you'll going to use the service to upload your data 
    '' with Service.Files.Create() 
    '' --------------------------------------------------------- 
    Me.Cursor = Cursors.Default 
    MsgBox("Upload Finished") 
End Sub