Buenos días compañeros.
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:
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()
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:
El valor no puede ser nulo.
Nombre del parámetro: baseUri
¿Alguien sabe por donde van los tiros de este problema????
Mil gracias