(Xojo Plugin) Wasabi Delete Bucket Objects
Demonstrates how to delete one or more objects in a bucket.
// 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 access key here:
http.AwsAccessKey = "access-key"
// Insert your secret key here:
http.AwsSecretKey = "secret-key"
// Use the endpoint matching the bucket's region.
http.AwsEndpoint = "s3.us-west-1.wasabisys.com"
Dim bucketName As String
bucketName = "chilkattest"
Dim objectName1 As String
objectName1 = "seahorse.jpg"
Dim objectName2 As String
objectName2 = "seahorse2.jpg"
Dim sa As New Chilkat.StringArray
success = sa.Append(objectName1)
success = sa.Append(objectName2)
Dim resp As Chilkat.HttpResponse
resp = http.S3_DeleteMultipleObjects(bucketName,sa)
If (http.LastMethodSuccess = False) Then
System.DebugLog(http.LastErrorText)
Return
End If
System.DebugLog("Response status code = " + Str(http.LastStatus))
// Display the XML response.
System.DebugLog(resp.BodyStr)
|