Visual FoxPro

S3 Delete Bucket

See more Amazon S3 Examples

Demonstrates how to delete a 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 = "ABQXXABC83ABCDEFVQXX"

* Insert your secret key here:
loHttp.AwsSecretKey = "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"

loHttp.KeepResponseBody = 1

lnSuccess = loHttp.S3_DeleteBucket("chilkattestbucket")

IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    * Also examine the error response body from AWS:
    ? loHttp.LastResponseBody
ELSE
    ? "Bucket deleted."
ENDIF

RELEASE loHttp