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) Backblaze S3 List BucketsSee more Backblaze S3 ExamplesDemonstrates how to list Backblaze buckets. The Chilkat S3 functions in the HTTP class are compatible with the Backblaze service. However, because of some specific issues, Chilkat v9.5.0.89 or later is needed.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' keyID = Access Key ID or Access Key http.AwsAccessKey = "access-key" ' applicationKey = Secret Access Key or Secret Key http.AwsSecretKey = "secret-key" ' Region is the 2nd part of your S3 Endpoint http.AwsEndpoint = "s3.us-west-002.backblazeb2.com" bucketsXml = http.S3_ListBuckets() If (http.LastMethodSuccess <> True) Then Debug.Print http.LastErrorText Exit Sub End If Dim xml As Chilkat.Xml Set xml = Chilkat.NewXml Dim success As Boolean success = xml.LoadXml(bucketsXml) Debug.Print xml.GetXml() ' Use this online tool to generate parsing code from sample XML: ' Generate Parsing Code from XML ' Sample output: ' <?xml version="1.0" encoding="UTF-8" standalone="yes"?> ' <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/"> ' <Owner> ' <ID>f2ebbc5f792c</ID> ' <DisplayName/> ' </Owner> ' <Buckets> ' <Bucket> ' <Name>chilkat</Name> ' <CreationDate>2021-10-30T14:17:30.004Z</CreationDate> ' </Bucket> ' <Bucket> ' <Name>chilkat-test</Name> ' <CreationDate>2021-10-30T14:25:52.556Z</CreationDate> ' </Bucket> ' </Buckets> ' </ListAllMyBucketsResult> ListAllMyBucketsResult_xmlns = xml.GetAttrValue("xmlns") ID = xml.GetChildContent("Owner|ID") i = 0 count_i = xml.NumChildrenHavingTag("Buckets|Bucket") Do While i < count_i xml.I = i Name = xml.GetChildContent("Buckets|Bucket[i]|Name") CreationDate = xml.GetChildContent("Buckets|Bucket[i]|CreationDate") i = i + 1 Loop |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.