(Visual FoxPro) S3 Delete Bucket

Demonstrates how to delete a bucket.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess

loHttp = CreateObject('Chilkat.Http')

lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

*  Insert your access key here:
loHttp.AwsAccessKey = "ABQXXABC83ABCDEFVQXX"

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

lnSuccess = loHttp.S3_DeleteBucket("chilkattestbucket")

IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
ELSE
    ? "Bucket created."
ENDIF