Gets information about Google Drive import formats and export formats.
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","importFormats,exportFormats")
Dim sbJson As New ChilkatStringBuilder
success = rest.FullRequestNoBodySb("GET","/drive/v3/about",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 i As Long
Dim count_i As Long
Dim strVal As String
i = 0
count_i = json.SizeOfArray("importFormats.text/tab-separated-values")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.text/tab-separated-values[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/x-vnd.oasis.opendocument.presentation""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/x-vnd.oasis.opendocument.presentation""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.image/jpeg")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.image/jpeg[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.image/bmp")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.image/bmp[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.image/gif")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.image/gif[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-excel.sheet.macroenabled.12""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-excel.sheet.macroenabled.12""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.openxmlformats-officedocument.wordprocessingml.template""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.openxmlformats-officedocument.wordprocessingml.template""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-powerpoint.presentation.macroenabled.12""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-powerpoint.presentation.macroenabled.12""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-word.template.macroenabled.12""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-word.template.macroenabled.12""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.openxmlformats-officedocument.wordprocessingml.document""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.openxmlformats-officedocument.wordprocessingml.document""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.image/pjpeg")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.image/pjpeg[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.google-apps.script+text/plain""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.google-apps.script+text/plain""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-excel""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-excel""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.sun.xml.writer""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.sun.xml.writer""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-word.document.macroenabled.12""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-word.document.macroenabled.12""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-powerpoint.slideshow.macroenabled.12""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-powerpoint.slideshow.macroenabled.12""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.text/rtf")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.text/rtf[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.text/plain")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.text/plain[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.oasis.opendocument.spreadsheet""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.oasis.opendocument.spreadsheet""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/x-vnd.oasis.opendocument.spreadsheet""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/x-vnd.oasis.opendocument.spreadsheet""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.image/png")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.image/png[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/x-vnd.oasis.opendocument.text""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/x-vnd.oasis.opendocument.text""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.application/msword")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.application/msword[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.application/pdf")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.application/pdf[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.application/json")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.application/json[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.application/x-msmetafile")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.application/x-msmetafile[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.openxmlformats-officedocument.spreadsheetml.template""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.openxmlformats-officedocument.spreadsheetml.template""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-powerpoint""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-powerpoint""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-excel.template.macroenabled.12""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-excel.template.macroenabled.12""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.image/x-bmp")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.image/x-bmp[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.application/rtf")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.application/rtf[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.openxmlformats-officedocument.presentationml.template""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.openxmlformats-officedocument.presentationml.template""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.image/x-png")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.image/x-png[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.text/html")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.text/html[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.oasis.opendocument.text""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.oasis.opendocument.text""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.openxmlformats-officedocument.presentationml.presentation""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.openxmlformats-officedocument.presentationml.presentation""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.openxmlformats-officedocument.spreadsheetml.sheet""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.openxmlformats-officedocument.spreadsheetml.sheet""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.google-apps.script+json""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.google-apps.script+json""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.openxmlformats-officedocument.presentationml.slideshow""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.openxmlformats-officedocument.presentationml.slideshow""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.ms-powerpoint.template.macroenabled.12""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.ms-powerpoint.template.macroenabled.12""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.text/csv")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.text/csv[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.""application/vnd.oasis.opendocument.presentation""")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.""application/vnd.oasis.opendocument.presentation""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.image/jpg")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.image/jpg[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("importFormats.text/richtext")
Do While i < count_i
json.I = i
strVal = json.StringOf("importFormats.text/richtext[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("exportFormats.""application/vnd.google-apps.form""")
Do While i < count_i
json.I = i
strVal = json.StringOf("exportFormats.""application/vnd.google-apps.form""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("exportFormats.""application/vnd.google-apps.document""")
Do While i < count_i
json.I = i
strVal = json.StringOf("exportFormats.""application/vnd.google-apps.document""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("exportFormats.""application/vnd.google-apps.drawing""")
Do While i < count_i
json.I = i
strVal = json.StringOf("exportFormats.""application/vnd.google-apps.drawing""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("exportFormats.""application/vnd.google-apps.spreadsheet""")
Do While i < count_i
json.I = i
strVal = json.StringOf("exportFormats.""application/vnd.google-apps.spreadsheet""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("exportFormats.""application/vnd.google-apps.script""")
Do While i < count_i
json.I = i
strVal = json.StringOf("exportFormats.""application/vnd.google-apps.script""[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("exportFormats.""application/vnd.google-apps.presentation""")
Do While i < count_i
json.I = i
strVal = json.StringOf("exportFormats.""application/vnd.google-apps.presentation""[i]")
i = i + 1
Loop
Debug.Print "Example Completed."
{
"importFormats": {
"text/tab-separated-values": [
"application/vnd.google-apps.spreadsheet"
],
"application/x-vnd.oasis.opendocument.presentation": [
"application/vnd.google-apps.presentation"
],
"image/jpeg": [
"application/vnd.google-apps.document"
],
"image/bmp": [
"application/vnd.google-apps.document"
],
"image/gif": [
"application/vnd.google-apps.document"
],
"application/vnd.ms-excel.sheet.macroenabled.12": [
"application/vnd.google-apps.spreadsheet"
],
"application/vnd.openxmlformats-officedocument.wordprocessingml.template": [
"application/vnd.google-apps.document"
],
"application/vnd.ms-powerpoint.presentation.macroenabled.12": [
"application/vnd.google-apps.presentation"
],
"application/vnd.ms-word.template.macroenabled.12": [
"application/vnd.google-apps.document"
],
"application/vnd.openxmlformats-officedocument.wordprocessingml.document": [
"application/vnd.google-apps.document"
],
"image/pjpeg": [
"application/vnd.google-apps.document"
],
"application/vnd.google-apps.script+text/plain": [
"application/vnd.google-apps.script"
],
"application/vnd.ms-excel": [
"application/vnd.google-apps.spreadsheet"
],
"application/vnd.sun.xml.writer": [
"application/vnd.google-apps.document"
],
"application/vnd.ms-word.document.macroenabled.12": [
"application/vnd.google-apps.document"
],
"application/vnd.ms-powerpoint.slideshow.macroenabled.12": [
"application/vnd.google-apps.presentation"
],
"text/rtf": [
"application/vnd.google-apps.document"
],
"text/plain": [
"application/vnd.google-apps.document"
],
"application/vnd.oasis.opendocument.spreadsheet": [
"application/vnd.google-apps.spreadsheet"
],
"application/x-vnd.oasis.opendocument.spreadsheet": [
"application/vnd.google-apps.spreadsheet"
],
"image/png": [
"application/vnd.google-apps.document"
],
"application/x-vnd.oasis.opendocument.text": [
"application/vnd.google-apps.document"
],
"application/msword": [
"application/vnd.google-apps.document"
],
"application/pdf": [
"application/vnd.google-apps.document"
],
"application/json": [
"application/vnd.google-apps.script"
],
"application/x-msmetafile": [
"application/vnd.google-apps.drawing"
],
"application/vnd.openxmlformats-officedocument.spreadsheetml.template": [
"application/vnd.google-apps.spreadsheet"
],
"application/vnd.ms-powerpoint": [
"application/vnd.google-apps.presentation"
],
"application/vnd.ms-excel.template.macroenabled.12": [
"application/vnd.google-apps.spreadsheet"
],
"image/x-bmp": [
"application/vnd.google-apps.document"
],
"application/rtf": [
"application/vnd.google-apps.document"
],
"application/vnd.openxmlformats-officedocument.presentationml.template": [
"application/vnd.google-apps.presentation"
],
"image/x-png": [
"application/vnd.google-apps.document"
],
"text/html": [
"application/vnd.google-apps.document"
],
"application/vnd.oasis.opendocument.text": [
"application/vnd.google-apps.document"
],
"application/vnd.openxmlformats-officedocument.presentationml.presentation": [
"application/vnd.google-apps.presentation"
],
"application/vnd.openxmlformats-officedocument.spreadsheetml.sheet": [
"application/vnd.google-apps.spreadsheet"
],
"application/vnd.google-apps.script+json": [
"application/vnd.google-apps.script"
],
"application/vnd.openxmlformats-officedocument.presentationml.slideshow": [
"application/vnd.google-apps.presentation"
],
"application/vnd.ms-powerpoint.template.macroenabled.12": [
"application/vnd.google-apps.presentation"
],
"text/csv": [
"application/vnd.google-apps.spreadsheet"
],
"application/vnd.oasis.opendocument.presentation": [
"application/vnd.google-apps.presentation"
],
"image/jpg": [
"application/vnd.google-apps.document"
],
"text/richtext": [
"application/vnd.google-apps.document"
]
},
"exportFormats": {
"application/vnd.google-apps.form": [
"application/zip"
],
"application/vnd.google-apps.document": [
"application/rtf",
"application/vnd.oasis.opendocument.text",
"text/html",
"application/pdf",
"application/epub+zip",
"application/zip",
"application/vnd.openxmlformats-officedocument.wordprocessingml.document",
"text/plain"
],
"application/vnd.google-apps.drawing": [
"image/svg+xml",
"image/png",
"application/pdf",
"image/jpeg"
],
"application/vnd.google-apps.spreadsheet": [
"application/x-vnd.oasis.opendocument.spreadsheet",
"text/tab-separated-values",
"application/pdf",
"application/vnd.openxmlformats-officedocument.spreadsheetml.sheet",
"text/csv",
"application/zip",
"application/vnd.oasis.opendocument.spreadsheet"
],
"application/vnd.google-apps.script": [
"application/vnd.google-apps.script+json"
],
"application/vnd.google-apps.presentation": [
"application/vnd.oasis.opendocument.presentation",
"application/pdf",
"application/vnd.openxmlformats-officedocument.presentationml.presentation",
"text/plain"
]
}
}