Amazon S3 - Delete Bucket (REST API)

Deletes an Amazon S3 bucket using the REST API. This example deletes the bucket named "chilkat3".

Download Chilkat XML ActiveX

Download Chilkat Crypt ActiveX

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
    '  Unlock failed.
    MsgBox http.LastErrorText
    Exit Sub
End If

Dim crypt As New ChilkatCrypt2

success = crypt.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    Exit Sub
End If

'  The HTTP component now includes a method to generate
'  the current date/time in RFC 2616 compliant format.
'  Note: The GenTimeStamp method is available as a pre-release (as of 18-June-2008).
'  It will become available in the next new version dated after
'  18-June-2008.
Dim curDateTime As String
curDateTime = http.GenTimeStamp()

'  Delete the bucket named "chilkat3"
Dim strToSign As String
strToSign = "DELETE" & vbLf & vbLf & vbLf & curDateTime & vbLf & "/chilkat3/"

'  We want SHA1 for the HMAC hash algorithm:
crypt.HashAlgorithm = "sha1"

'  These must be changed for your account:
Dim AWSAccessKeyId As String
AWSAccessKeyId = "zzzzzzzzzzzzzzzzzzzzz"
Dim AWSSecretAccessKey As String
AWSSecretAccessKey = "zzzzzzzzzzzzzzzzzzzzzzzzzzz"

'  Set the HMAC secret key:
crypt.SetHmacKeyString AWSSecretAccessKey

'  By setting the charset = "utf-8", the string will be converted
'  to utf-8 (internal to the Chilkat component) prior to signing:
crypt.Charset = "utf-8"

'  Indicate that Base64 output is desired:
crypt.EncodingMode = "base64"

Dim signature As String
signature = crypt.HmacStringENC(strToSign)

Dim authValue As String
authValue = "AWS " & AWSAccessKeyId & ":" & signature

'  The bucket to be deleted is specified in the Host header.
'  In this example, the "chilkat3" bucket is deleted
http.SetRequestHeader "Host","chilkat3.s3.amazonaws.com"

http.SetRequestHeader "Authorization",authValue
http.SetRequestHeader "Date",curDateTime

'  Send the DELETE request.
Dim responseStr As String
responseStr = http.QuickDeleteStr("http://s3.amazonaws.com/")

If (responseStr = vbNullString ) Then
    '  Failed.  Show the last request header, response header,
    '  and response body.
    Text1.Text = Text1.Text & http.LastHeader & vbCrLf
    Text1.Text = Text1.Text & "---" & vbCrLf
    Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf
    Text1.Text = Text1.Text & "---" & vbCrLf
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
Else

    '  Success is indicated by an empty response string, and
    '  a response status of 204.
    If (http.LastStatus = 204) Then
        MsgBox "Bucket deleted!"

        '  Let's check out the response header anyway...
        Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf

    Else

        '  Is this a temporary redirect?
        If (http.LastStatus = 307) Then

            '  The new endpoint is in the XML contained within responseStr.
            Dim xml As New ChilkatXml
            xml.LoadXml responseStr
            Dim endpoint As String
            endpoint = xml.GetChildContent("Endpoint")
            responseStr = http.QuickDeleteStr(endpoint)
            If (http.LastStatus = 204) Then
                MsgBox "Bucket deleted after redirect!"

                '  Let's check out the response header anyway...
                Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf

            Else
                '  What happened???
                Text1.Text = Text1.Text & "LastStatus: " _
                     & http.LastStatus & vbCrLf
                Text1.Text = Text1.Text & "---" & vbCrLf
                Text1.Text = Text1.Text & responseStr & vbCrLf
                Text1.Text = Text1.Text & "---" & vbCrLf
                Text1.Text = Text1.Text & http.LastHeader & vbCrLf
                Text1.Text = Text1.Text & "---" & vbCrLf
                Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf
                Text1.Text = Text1.Text & "---" & vbCrLf
                Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
            End If

        Else
            '  What response is this???
            Text1.Text = Text1.Text & "LastStatus: " _
                 & http.LastStatus & vbCrLf
            Text1.Text = Text1.Text & "---" & vbCrLf
            Text1.Text = Text1.Text & responseStr & vbCrLf
            Text1.Text = Text1.Text & "---" & vbCrLf
            '  Failed.  Show the last request header, response header,
            '  and response body.
            Text1.Text = Text1.Text & http.LastHeader & vbCrLf
            Text1.Text = Text1.Text & "---" & vbCrLf
            Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf
            Text1.Text = Text1.Text & "---" & vbCrLf
            Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
        End If

    End If

End If