(Visual Basic) S3 Delete Bucket

Demonstrates how to delete a bucket.

Download Chilkat HTTP ActiveX

Dim http As New ChilkatHttp

Dim success As Long
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    Exit Sub
End If

'  Insert your access key here:
http.AwsAccessKey = "ABQXXABC83ABCDEFVQXX"

'  Insert your secret key here:
http.AwsSecretKey = "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"

success = http.S3_DeleteBucket("chilkattestbucket")

If (success <> 1) Then
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
Else
    Text1.Text = Text1.Text & "Bucket created." & vbCrLf
End If