Perl Dropbox: Dropbox Copy a File or Folder

Back to Index

Copy a file or folder to a different location in the user's Dropbox. If the source path is a folder all its contents will be copied.

Documentation: https://www.dropbox.com/developers/documentation/http/documentation#files-copy

CURL Command

curl -X POST https://api.dropboxapi.com/2/files/copy_v2 \
    --header "Authorization: Bearer DROPBOX-ACCESS-TOKEN" \
    --header "Content-Type: application/json" \
    --data "{\"from_path\": \"/ocean/starfish.jpg\",\"to_path\": \"/ocean/starfish2.jpg\",\"allow_shared_folder\": false,\"autorename\": false,\"allow_ownership_transfer\": false}"

Perl Example

use chilkat();

$rest = chilkat::CkRest->new();

#  URL: https://api.dropboxapi.com/2/files/copy_v2
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("api.dropboxapi.com",$port,$bTls,$bAutoReconnect);
if ($success != 1) {
    print "ConnectFailReason: " . $rest->get_ConnectFailReason() . "\r\n";
    print $rest->lastErrorText() . "\r\n";
    exit;
}

#  See the Online Tool for Generating JSON Creation Code
$json = chilkat::CkJsonObject->new();
$json->UpdateString("from_path","/ocean/starfish.jpg");
$json->UpdateString("to_path","/ocean/starfish2.jpg");
$json->UpdateBool("allow_shared_folder",0);
$json->UpdateBool("autorename",0);
$json->UpdateBool("allow_ownership_transfer",0);

$rest->AddHeader("Authorization","Bearer DROPBOX-ACCESS-TOKEN");
$rest->AddHeader("Content-Type","application/json");

$sbRequestBody = chilkat::CkStringBuilder->new();
$json->EmitSb($sbRequestBody);
$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestSb("POST","/2/files/copy_v2",$sbRequestBody,$sbResponseBody);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$respStatusCode = $rest->get_ResponseStatusCode();
if ($respStatusCode >= 400) {
    print "Response Status Code = " . $respStatusCode . "\r\n";
    print "Response Header:" . "\r\n";
    print $rest->responseHeader() . "\r\n";
    print "Response Body:" . "\r\n";
    print $sbResponseBody->getAsString() . "\r\n";
    exit;
}

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->LoadSb($sbResponseBody);

#  See the Online Tool for Generating JSON Parse Code

$metadataTag = $jsonResponse->stringOf("metadata.\".tag\"");
$metadataName = $jsonResponse->stringOf("metadata.name");
$metadataPath_lower = $jsonResponse->stringOf("metadata.path_lower");
$metadataPath_display = $jsonResponse->stringOf("metadata.path_display");
$metadataId = $jsonResponse->stringOf("metadata.id");
$metadataClient_modified = $jsonResponse->stringOf("metadata.client_modified");
$metadataServer_modified = $jsonResponse->stringOf("metadata.server_modified");
$metadataRev = $jsonResponse->stringOf("metadata.rev");
$metadataSize = $jsonResponse->IntOf("metadata.size");
$metadataContent_hash = $jsonResponse->stringOf("metadata.content_hash");

Sample JSON Response Body

{
  "metadata": {
    ".tag": "file",
    "name": "starfish2.jpg",
    "path_lower": "/ocean/starfish2.jpg",
    "path_display": "/ocean/starfish2.jpg",
    "id": "id:JSXYsxHo1hAAAAAAAAAADg",
    "client_modified": "2018-10-22T22:38:18Z",
    "server_modified": "2018-10-22T22:40:38Z",
    "rev": "1c482db15f",
    "size": 6229,
    "content_hash": "9fa9d692d0762ee759c22dea993c7de0068f9ba2ca842e761a1636d3b0b3cbba"
  }
}