(Visual FoxPro) Wasabi Delete Bucket
Demonstrates how to delete a new Wasabi bucket.
LOCAL loHttp
LOCAL lnSuccess
* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
* Insert your access key here:
loHttp.AwsAccessKey = "access-key"
* Insert your secret key here:
loHttp.AwsSecretKey = "secret-key"
* To delete a bucket located in a different region, use the domain for that region, such as "s3.eu-central-1.wasabisys.com"
loHttp.AwsEndpoint = "s3.wasabisys.com"
loHttp.KeepResponseBody = 1
lnSuccess = loHttp.S3_DeleteBucket("chilkat-wasabi-testbucket")
IF (lnSuccess <> 1) THEN
? loHttp.LastErrorText
* Also examine the error response body from Wasabi:
? loHttp.LastResponseBody
ELSE
? "Bucket deleted."
ENDIF
RELEASE loHttp
|
