(Visual Basic 6.0) S3 Delete File
Demonstrates how to delete a remote file (object) on the Amazon S3 service.
' This example assumes the Chilkat HTTP API to have been previously unlocked
' See Global Unlock Sample for sample code
Dim http As New ChilkatHttp
' Insert your access key here
http.AwsAccessKey = "AWS_ACCESS_KEY"
' Insert your secret key here
http.AwsSecretKey = "AWS_SECRET_KEY"
Dim bucketName As String
bucketName = "chilkattest"
Dim objectName As String
objectName = "starfish.jpg"
http.KeepResponseBody = 1
Dim success As Long
success = http.S3_DeleteObject(bucketName,objectName)
If (success <> 1) Then
Debug.Print http.LastErrorText
Exit Sub
End If
If (http.LastStatus <> 204) Then
Debug.Print "Status code = " & http.LastStatus
Debug.Print http.LastResponseBody
Debug.Print "Failed."
Exit Sub
End If
' 204 is the success response status.
' When successful, the response body will be empty.
Debug.Print "Status code = " & http.LastStatus
Debug.Print "Success. Object deleted."
|