(VB.NET UWP/WinRT) Google Drive Insert Permission

This example demonstrates how to insert a permission for a file (see https://developers.google.com/drive/v2/reference/permissions/insert)

The impetus for creating this example was a need to be able to view files uploaded using a service account key in the Google Drive web interface. When using a service account access token, the files your application will see are those for the service account, and not the files for your main account. For example, the Google Account I use for testing has a username of "support@chilkatcloud.com". (Don't send email to support@chilkatcloud.com, it's just use for testing and not interactively read.) I use "support@chilkatcloud.com" when I log into Google interactively to view files in Google Drive at https://drive.google.com/drive/my-drive.

The files I upload to Google Drive using a service account key won't be visible in the browser UI. To make them visible, you need to insert a permission for the file so that the main user account, which in this case is "support@chilkatcloud.com", is a reader. After the permission is inserted, the file will be visible under "Shared with me" -- as if another Google Drive account shared the file with you.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

Dim success As Boolean = True

' It requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' This example uses a previously obtained access token having permission for the 
' Google Drive scope.

Dim gAuth As New Chilkat.AuthGoogle
gAuth.AccessToken = "GOOGLE-DRIVE-ACCESS-TOKEN"

Dim rest As New Chilkat.Rest

' Connect using TLS.
Dim bAutoReconnect As Boolean = True
success = Await rest.ConnectAsync("www.googleapis.com",443,True,bAutoReconnect)

' Provide the authentication credentials (i.e. the access token)
rest.SetAuthGoogle(gAuth)

rest.AddHeader("Content-Type","application/json; charset=UTF-8")

Dim json As New Chilkat.JsonObject
json.AppendString("role","reader")
json.AppendString("type","user")
json.AppendString("value","support@chilkatcloud.com")

' A note from a Chilkat customer:
' 
'   My coding attempt was frustrated because I tried a role of "owner".
'   Even when providing the extra parameter of ...?transferOwnership=true
'   that approach fails (400, Bad Request).
' 

' This example is inserting a permission for the file whose fileId is "0By-hrxCCDzSQUGxJY0hzNUFpNmc".
Dim jsonResponse As String = Await rest.FullRequestStringAsync("POST","/drive/v2/files/0By-hrxCCDzSQUGxJY0hzNUFpNmc/permissions",json.Emit())
If (rest.LastMethodSuccess <> True) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


' A successful response will have a status code equal to 200.
If (rest.ResponseStatusCode <> 200) Then
    Debug.WriteLine("response status code = " & rest.ResponseStatusCode)
    Debug.WriteLine("response status text = " & rest.ResponseStatusText)
    Debug.WriteLine("response header: " & rest.ResponseHeader)
    Debug.WriteLine("response JSON: " & jsonResponse)
    Exit Sub
End If


' Show the JSON response.
json.Load(jsonResponse)

' Show the full JSON response.
json.EmitCompact = False
Debug.WriteLine(json.Emit())

Debug.WriteLine("Success.")