Visual Basic 6.0 Google Drive: Creates a New Reply to a Comment

Back to Index

Creates a new reply to a comment. This example creates a reply to a comment on the file having fileId = "0B5drHSd5ZHwgc3RhcnRlcl9maWxlX2Rhc2hlclYw", and commentId = "AAAABg7tSGw".

Documentation: https://developers.google.com/drive/v3/reference/replies/create

Dim rest As New ChilkatRest
Dim success As Long

'   Provide a previously obtained OAuth2 access token.
Dim oauth2 As New ChilkatOAuth2
oauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"
success = rest.SetAuthOAuth2(oauth2)

success = rest.Connect("www.googleapis.com",443,1,1)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

success = rest.AddQueryParam("fields","modifiedTime,author,content,action")

'  The following code creates the JSON request body.
'  The JSON created by this code is shown below.
Dim jsonReq As New ChilkatJsonObject
success = jsonReq.UpdateString("content","This is the second reply to a comment.")
success = jsonReq.UpdateString("action","resolve")

Dim sbReq As New ChilkatStringBuilder
success = jsonReq.EmitSb(sbReq)

success = rest.AddHeader("Content-Type","application/json")

Dim sbJson As New ChilkatStringBuilder
success = rest.FullRequestSb("POST","/drive/v3/files/0B5drHSd5ZHwgc3RhcnRlcl9maWxlX2Rhc2hlclYw/comments/AAAABg7tSGw/replies",sbReq,sbJson)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

If (rest.ResponseStatusCode <> 200) Then
    Debug.Print "Received error response code: " & rest.ResponseStatusCode
    Debug.Print "Response body:"
    Debug.Print sbJson.GetAsString()
    Exit Sub
End If

Dim json As New ChilkatJsonObject
success = json.LoadSb(sbJson)

'  The following code parses the JSON response.
'  A sample JSON response is shown below the sample code.
Dim modifiedTime As String
Dim authorKind As String
Dim authorDisplayName As String
Dim authorPhotoLink As String
Dim authorMe As Long
Dim content As String
Dim action As String

modifiedTime = json.StringOf("modifiedTime")
authorKind = json.StringOf("author.kind")
authorDisplayName = json.StringOf("author.displayName")
authorPhotoLink = json.StringOf("author.photoLink")
authorMe = json.BoolOf("author.me")
content = json.StringOf("content")
action = json.StringOf("action")

Debug.Print "Example Completed."

Sample JSON Request Body

{
  "content": "This is the second reply to a comment.",
"action": "resolve"
}

Sample JSON Response Body

{
  "modifiedTime": "2017-11-13T18:25:11.828Z",
  "author": {
    "kind": "drive#user",
    "displayName": "Matt Fausey",
    "photoLink": "//ssl.gstatic.com/s2/profiles/images/silhouette96.png",
    "me": true
  },
  "content": "This is the second reply to a comment.",
  "action": "resolve"
}