Estoy tratando de subir ficheros desde una aplicación de consola a Google Drive y estoy teniendo el siguiente problema.
El código es el siguiente:
Código:
Este código funciona perfectamente con mi GoogleDrive personal y sube los ficheros, o los lee alterando el código, perfectamente. Sin embargo, cuando apunto al google drive de mi empresa... la cosa cambia. Conecta perfectamente, pero a la hora de subir el fichero, en el request.Upload() el status captura el resultado como "FAIL{4}" y la excepción que contiene dicta:Dim CS As New ClientSecrets CS.ClientId = "CODIGO DEL CLIENTE" CS.ClientSecret = "CONTRASEÑA DEL CLIENTE" Dim vScopes() As String = {DriveService.Scope.Drive} Dim sUser As String = "MI CORREO GMAIL QUE ES EL USUARIO" Dim credential As UserCredential = GoogleWebAuthorizationBroker.AuthorizeAsync(CS, vScopes, sUser, CancellationToken.None).Result 'Creamos el Servicio Dim ObjBaseClientService As New BaseClientService.Initializer() ObjBaseClientService.HttpClientInitializer = credential ObjBaseClientService.ApplicationName = "NOMBRE DE LA APLI" Dim service As New DriveService(ObjBaseClientService) 'Creamos un fichero Dim body As New File() body.Title = "Mi documento de Prueba" body.Description = "Prueba de Javi" body.MimeType = "text/plain" Dim byteArray() As Byte = System.IO.File.ReadAllBytes("document.txt") Dim stream As New System.IO.MemoryStream(byteArray) Dim request As FilesResource.InsertMediaUpload = service.Files.Insert(body, stream, "text/plain") Dim Resutado As Google.Apis.Upload.IUploadProgress 'Resutado = request.Upload() request.Upload() If Resutado.Status <> Google.Apis.Upload.UploadStatus.Completed Then Throw New Exception("No fue posible subir el fichero al Drive") End If Dim Objfile As File = request.ResponseBody Console.WriteLine("Fichero creado") Console.ReadKey()
El valor no puede ser nulo.
Nombre del parámetro: baseUri
¿Alguien sabe por donde van los tiros de este problema????
Mil gracias