(VB.NET UWP/WinRT) OSS List Buckets (Alibaba Cloud)

See more Alibaba Cloud OSS Examples

Demonstrates how to list AliCloud OSS buckets.

The Chilkat S3 functions in the HTTP class are compatible with Alibaba Cloud's OSS service.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

Dim http As New Chilkat.Http
Dim success As Boolean

' Insert your AccessKey ID here:
http.AwsAccessKey = "access-key"

' Insert your AccessKey Secret here:
http.AwsSecretKey = "secret-key"

' See Alibaba Object Storage Service Regions and Endpoints
http.AwsEndpoint = "oss-us-west-1.aliyuncs.com"

Dim bucketsXml As String = Await http.S3_ListBucketsAsync()

If (http.LastMethodSuccess <> True) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Dim xml As New Chilkat.Xml
xml.LoadXml(bucketsXml)
Debug.WriteLine(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"?>
' <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
'     <Owner>
'         <ID>5035535379748121</ID>
'         <DisplayName>5035535379748121</DisplayName>
'     </Owner>
'     <Buckets>
'         <Bucket>
'             <Comment/>
'             <CreationDate>2021-10-28T21:30:56.000Z</CreationDate>
'             <ExtranetEndpoint>oss-us-east-1.aliyuncs.com</ExtranetEndpoint>
'             <IntranetEndpoint>oss-us-east-1-internal.aliyuncs.com</IntranetEndpoint>
'             <Location>oss-us-east-1</Location>
'             <Name>chilkat</Name>
'             <Region>us-east-1</Region>
'             <StorageClass>STANDARD</StorageClass>
'         </Bucket>
'         <Bucket>
'             <Comment/>
'             <CreationDate>2021-10-29T00:12:54.000Z</CreationDate>
'             <ExtranetEndpoint>oss-us-west-1.aliyuncs.com</ExtranetEndpoint>
'             <IntranetEndpoint>oss-us-west-1-internal.aliyuncs.com</IntranetEndpoint>
'             <Location>oss-us-west-1</Location>
'             <Name>chilkat-testbucket</Name>
'             <Region>us-west-1</Region>
'             <StorageClass>STANDARD</StorageClass>
'         </Bucket>
'         <Bucket>
'             <Comment/>
'             <CreationDate>2021-10-28T23:52:10.000Z</CreationDate>
'             <ExtranetEndpoint>oss-us-west-1.aliyuncs.com</ExtranetEndpoint>
'             <IntranetEndpoint>oss-us-west-1-internal.aliyuncs.com</IntranetEndpoint>
'             <Location>oss-us-west-1</Location>
'             <Name>chilkat2</Name>
'             <Region>us-west-1</Region>
'             <StorageClass>STANDARD</StorageClass>
'         </Bucket>
'     </Buckets>
' </ListAllMyBucketsResult>



Dim CreationDate As String
Dim ExtranetEndpoint As String
Dim IntranetEndpoint As String
Dim Location As String
Dim Name As String
Dim Region As String
Dim StorageClass As String

Dim ListAllMyBucketsResult_xmlns As String = xml.GetAttrValue("xmlns")
Dim ID As String = xml.GetChildContent("Owner|ID")
Dim DisplayName As String = xml.GetChildContent("Owner|DisplayName")
Dim i As Integer = 0
Dim count_i As Integer = xml.NumChildrenHavingTag("Buckets|Bucket")
While i < count_i
    xml.I = i
    CreationDate = xml.GetChildContent("Buckets|Bucket[i]|CreationDate")
    ExtranetEndpoint = xml.GetChildContent("Buckets|Bucket[i]|ExtranetEndpoint")
    IntranetEndpoint = xml.GetChildContent("Buckets|Bucket[i]|IntranetEndpoint")
    Location = xml.GetChildContent("Buckets|Bucket[i]|Location")
    Name = xml.GetChildContent("Buckets|Bucket[i]|Name")
    Region = xml.GetChildContent("Buckets|Bucket[i]|Region")
    StorageClass = xml.GetChildContent("Buckets|Bucket[i]|StorageClass")
    i = i + 1
End While