Create a folder. Creates the folder /Halloween/emojis
curl -X POST https://api.dropboxapi.com/2/files/create_folder_v2 \
--header "Authorization: Bearer DROPBOX-ACCESS-TOKEN" \
--header "Content-Type: application/json" \
--data "{\"path\": \"/Halloween/emojis\",\"autorename\": false}"
Use ChilkatAx-9.5.0-win32.pkg
Procedure Test
Handle hoRest
Boolean iSuccess
Boolean iBTls
Integer iPort
Boolean iBAutoReconnect
Handle hoJson
Variant vSbRequestBody
Handle hoSbRequestBody
Variant vSbResponseBody
Handle hoSbResponseBody
Integer iRespStatusCode
Response Handle hoJsonResponse
Integer i
Integer iCount_i
Integer j
Integer iCount_j
String sMetadataName
String sMetadataId
String sMetadataPath_lower
String sMetadataPath_display
Boolean iMetadataSharing_infoRead_only
String sMetadataSharing_infoParent_shared_folder_id
Boolean iMetadataSharing_infoTraverse_only
Boolean iMetadataSharing_infoNo_access
String sTemplate_id
String sName
String sValue
String sTemp1
Integer iTemp1
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// URL: https://api.dropboxapi.com/2/files/create_folder_v2
Move True To iBTls
Move 443 To iPort
Move True To iBAutoReconnect
Get ComConnect Of hoRest "api.dropboxapi.com" iPort iBTls iBAutoReconnect To iSuccess
If (iSuccess <> True) Begin
Get ComConnectFailReason Of hoRest To iTemp1
Showln "ConnectFailReason: " iTemp1
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
// See the Online Tool for Generating JSON Creation Code
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComUpdateString Of hoJson "path" "/Halloween/emojis" To iSuccess
Get ComUpdateBool Of hoJson "autorename" False To iSuccess
Get ComAddHeader Of hoRest "Authorization" "Bearer DROPBOX-ACCESS-TOKEN" To iSuccess
Get ComAddHeader Of hoRest "Content-Type" "application/json" To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbRequestBody
If (Not(IsComObjectCreated(hoSbRequestBody))) Begin
Send CreateComObject of hoSbRequestBody
End
Get pvComObject of hoSbRequestBody to vSbRequestBody
Get ComEmitSb Of hoJson vSbRequestBody To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
Send CreateComObject of hoSbResponseBody
End
Get pvComObject of hoSbRequestBody to vSbRequestBody
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComFullRequestSb Of hoRest "POST" "/2/files/create_folder_v2" vSbRequestBody vSbResponseBody To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComResponseStatusCode Of hoRest To iRespStatusCode
If (iRespStatusCode >= 400) Begin
Showln "Response Status Code = " iRespStatusCode
Showln "Response Header:"
Get ComResponseHeader Of hoRest To sTemp1
Showln sTemp1
Showln "Response Body:"
Get ComGetAsString Of hoSbResponseBody To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonResponse
If (Not(IsComObjectCreated(hoJsonResponse))) Begin
Send CreateComObject of hoJsonResponse
End
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComLoadSb Of hoJsonResponse vSbResponseBody To iSuccess
// See the Online Tool for Generating JSON Parse Code
Get ComStringOf Of hoJsonResponse "metadata.name" To sMetadataName
Get ComStringOf Of hoJsonResponse "metadata.id" To sMetadataId
Get ComStringOf Of hoJsonResponse "metadata.path_lower" To sMetadataPath_lower
Get ComStringOf Of hoJsonResponse "metadata.path_display" To sMetadataPath_display
Get ComBoolOf Of hoJsonResponse "metadata.sharing_info.read_only" To iMetadataSharing_infoRead_only
Get ComStringOf Of hoJsonResponse "metadata.sharing_info.parent_shared_folder_id" To sMetadataSharing_infoParent_shared_folder_id
Get ComBoolOf Of hoJsonResponse "metadata.sharing_info.traverse_only" To iMetadataSharing_infoTraverse_only
Get ComBoolOf Of hoJsonResponse "metadata.sharing_info.no_access" To iMetadataSharing_infoNo_access
Move 0 To i
Get ComSizeOfArray Of hoJsonResponse "metadata.property_groups" To iCount_i
While (i < iCount_i)
Set ComI Of hoJsonResponse To i
Get ComStringOf Of hoJsonResponse "metadata.property_groups[i].template_id" To sTemplate_id
Move 0 To j
Get ComSizeOfArray Of hoJsonResponse "metadata.property_groups[i].fields" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJsonResponse To j
Get ComStringOf Of hoJsonResponse "metadata.property_groups[i].fields[j].name" To sName
Get ComStringOf Of hoJsonResponse "metadata.property_groups[i].fields[j].value" To sValue
Move j + 1 To j
Loop
Move i + 1 To i
Loop
End_Procedure
{
"metadata": {
"name": "emojis",
"id": "id:a4ayc_80_OEAAAAAAAAAXz",
"path_lower": "/halloween/emojis",
"path_display": "/Halloween/emojis",
"sharing_info": {
"read_only": false,
"parent_shared_folder_id": "84528192421",
"traverse_only": false,
"no_access": false
},
"property_groups": [
{
"template_id": "ptid:1a5n2i6d3OYEAAAAAAAAAYa",
"fields": [
{
"name": "Security Policy",
"value": "Confidential"
}
]
}
]
}
}