Visual Basic 6.0

Transition from Http.S3_DeleteMultipleObjects to Http.S3_DeleteObjects

Provides instructions for replacing deprecated S3_DeleteMultipleObjects method calls with S3_DeleteObjects. Visual Basic 6.0

Dim success As Long
success = 0

Dim http As New ChilkatHttp

Dim bucketName As String
bucketName = "testBucket"

Dim sa As New CkStringArray
success = sa.Append("starfish.jpg")
success = sa.Append("clam.jpg")
success = sa.Append("shark.jpg")

Dim st As New ChilkatStringTable
success = st.Append("starfish.jpg")
success = st.Append("clam.jpg")
success = st.Append("shark.jpg")

' ------------------------------------------------------------------------
' The S3_DeleteMultipleObjects method is deprecated:

Dim responseObj As ChilkatHttpResponse
Set responseObj = http.S3_DeleteMultipleObjects(bucketName,sa)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

' ...
' ...

' ------------------------------------------------------------------------
' Do the equivalent using S3_DeleteObjects.
' Your application creates a new, empty HttpResponse object which is passed 
' in the last argument and filled upon success.

Dim responseOut As New ChilkatHttpResponse
success = http.S3_DeleteObjects(bucketName,st,responseOut)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If