Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Create S3 Bucket in a RegionDemonstrates how to create an S3 bucket in a specified region. This example will create a bucket in the eu-west-2 region.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim rest As Chilkat.Rest Set rest = Chilkat.NewRest ' Connect to the Amazon AWS REST server. bTls = True port = 443 bAutoReconnect = True success = rest.Connect("s3.amazonaws.com",port,bTls,bAutoReconnect) ' Provide AWS credentials for the REST call. Dim authAws As Chilkat.AuthAws Set authAws = Chilkat.NewAuthAws authAws.AccessKey = "AWS_ACCESS_KEY" authAws.SecretKey = "AWS_SECRET_KEY" authAws.ServiceName = "s3" success = rest.SetAuthAws(authAws) ' We'll send a PUT request having an XML body such as this: ' <CreateBucketConfiguration xmlns="http://s3.amazonaws.com/doc/2006-03-01/"> ' <LocationConstraint>BucketRegion</LocationConstraint> ' </CreateBucketConfiguration> ' Create the XML body specifying the region as "eu-west-2" Dim xml As Chilkat.Xml Set xml = Chilkat.NewXml xml.Tag = "CreateBucketConfiguration" Dim success As Boolean success = xml.AddAttribute("xmlns","http://s3.amazonaws.com/doc/2006-03-01/") xml.UpdateChildContent "LocationConstraint","eu-west-2" ' Set the bucket name via the HOST header. ' In this case, the bucket name is "chilkateuwest2". rest.Host = "chilkateuwest2.s3.amazonaws.com" ' Make the call to create the bucket. responseStr = rest.FullRequestString("PUT","/",xml.GetXml()) If (rest.LastMethodSuccess <> True) Then Debug.Print rest.LastErrorText Exit Sub End If If (rest.ResponseStatusCode <> 200) Then Debug.Print "status code = "; rest.ResponseStatusCode Dim responseXml As Chilkat.Xml Set responseXml = Chilkat.NewXml success = responseXml.LoadXml(responseStr) Debug.Print responseXml.GetXml() Debug.Print "Failed." Exit Sub End If Debug.Print "Bucket in the eu-west-2 region created." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.