Visual Basic 6.0

S3 Find Bucket Region

See more Amazon S3 (new) Examples

Demonstrates how to find out the region of an S3 bucket. Visual Basic 6.0

Dim success As Long
success = 0

' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim rest As New ChilkatRest

' Connect to the Amazon AWS REST server using the correct region (in this example, "us-west-2")
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("s3.amazonaws.com",port,bTls,bAutoReconnect)

' Provide AWS credentials for the REST call.
Dim authAws As New ChilkatAuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
authAws.ServiceName = "s3"
success = rest.SetAuthAws(authAws)

' The bucket name we want to know about is set in the HOST header.
' In this example, we want to find the region for the "chilkat.qa" bucket.
rest.Host = "chilkat.qa.s3.amazonaws.com"

' Send the GET request to query the bucket location.
Dim strResult As String
strResult = rest.FullRequestNoBody("GET","/?location")
If (rest.LastMethodSuccess <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim responseStatusCode As Long
responseStatusCode = rest.ResponseStatusCode
Debug.Print "Response status code = " & responseStatusCode
If (responseStatusCode <> 200) Then
    Debug.Print rest.ResponseHeader
    Debug.Print strResult
    Debug.Print "Failed."
    Exit Sub
End If

Debug.Print strResult

' The result contains XML like this:
' <?xml version="1.0" encoding="UTF-8"?>
' <LocationConstraint xmlns="http://s3.amazonaws.com/doc/2006-03-01/">us-west-2</LocationConstraint>

' Get the "us-west-2" from the XML
Dim xml As New ChilkatXml
success = xml.LoadXml(strResult)
Debug.Print "region = " & xml.Content