Visual FoxPro

Wasabi Delete Bucket

See more Wasabi Examples

Demonstrates how to delete a new Wasabi bucket. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp

lnSuccess = 0

*  This example assumes the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

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